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NUMERO  EXTRA  ORDINARIO  DE  PROGRAMAS  2.a  EDICION 


Nuestro  numero  Extra  de  Progra¬ 
mas  ha  tenido  un  éxito  monstruoso 
y  sin  apenas  haber  llegado  a  la 
calle  se  ha  agolado.  Se  está  preparando 
una  segunda  edición  ya  que  las  peticiones 
del  mismo  nos  siguen  llegando  masiva¬ 
mente  y  los  kioskos  todavía  no  se  han  casi 
estrenado.  Incluimos  al  pie  de  esta  página 
un  boletín  de  reserva  para  esta  segunda 
edición.  ¡¡CUIDADO!!  los  que  ya  hayáis 
enviado  el  boletín  anterior,  no  es  necesario 
que  repitáis  el  envió,  dentro  de  unos  dias  ten¬ 
dréis  el  ejemplar  en  vuestra  casa. 

EORMA  DE  PAGO 
DEL  EXTRAORDINARIO 
CON  BOLETIN  DE  RESERVA 
Solamente  se  aceptan  peticiones  que 
vengan  acompañadas  de  cheque  o  giro.  No 
se  aceptan  reembolsos. 


BIENVENIDA  A  LA  RADIO  AFICION 
AL  MUNDO  COMMODORIANO 
Y  DESPEDIDA  AL 
MISTERIO  DE  LOS  POKES 

La  serie  el  misterio  de  los  pokes  está 
locando  a  su  fin  como  ya  habréis  podido 
ver.  Para  ocupar  el  espacio  que  dejará. 
ER-4-ALI  (que  no  es  otro  que  Diego),  ha 
preparado  una  serie  de  tres  capítulos  des¬ 
tinada  a  las  aplicaciones  del  VIC-20  y  el 
C'-64  en  el  campo  de  la  radioafición.  Los 
que  sean  radioaficionados  ya  sabrán  que  su 
equipo  se  puede  utilizar  para  recibir  men¬ 


sajes,  y  por  supuesto,  para  enviarlos  al 
éter.  Se  puede  trabajar  con  el  ordenador 
personal  en  las  modalidades  de  CVV  v 
R  TTV  (telegrafía  y  radio-teletipo),  amplian¬ 
do  con  ello  el  campo  de  aplicaciones  del 
ordenador.  I  ambién  se  puede  utilizar  para 
calcular  el  rumbo  ortodómico  o  trayectoria 
más  corta  entre  dos  puntos,  orientación  y 
diseño  de  antenas,  etc.  Los  que  no  sean 
radioaficionados,  quizás  les  despierta  el 
gusanillo  y  comienzan  a  interesarse  un 
poco  por  ese  mundo  tan  curioso  de  las 
comunicaciones  por  radio,  vía  satélite,  etc. 

El  motivo  de  escoger  este  tema  ha  sido 
la  cantidad  de  cartas  recibidas  en  la  redac¬ 
ción  solicitándolo.  Para  dar  una  idea  de  la 
difusión  de  esta  afición  en  nuestro  país, 
diremos  que  el  número  de  aficionados  con 
licencia  oficial  del  ministerio  pasa  en  estos 
momentos  de  trenta  mil,  y  aproximada¬ 
mente  un  cincuenta  por  ciento  de  ellos  tie¬ 
nen  también  ordenadores  personales. 

Esperamos  que  la  serie  sea  de  interés 
para  muchos  de  nuestros  lectores. 


RAM!  Y  ROMO 
AGREDIDOS  POR 
EL  CURSILLO 
DE  CODIGO  MAQUINA 

nes  de  espacio  nos  vemos  obligados  a  qui¬ 
tar  el  comic  que  hahitualmente  aparece  en 
nuestras  páginas  dirigido  a  los  niños  de  dos 
a  noventa  años.  La  culpa  de  este  desagui¬ 
sado  la  ha  tenido  Diego,  que  nos  ha  inva¬ 


BOLETIN  COMPRA  DEL  NUMERO  EXTRAORDINARIO 

2a  EDICION 


dido  doce  páginas  de  la  revista  con  su  cur¬ 
sillo  de  lenguaje  máquina.  Esperamos  que 
los  asiduos  de  esta  sección  no  le  esperen  en 
la  calle  un  dia  de  estos. 

En  el  próximo  número  volverán  nuestros 
pequeños  amigos  con  sus  aventuras,  y  y  a 
hemos  dado  una  buena  reprimenda  al  autor 
de  esta  ••fechoría"  para  que  no  vuelva  a 
"pasarse  de  páginas". 


IMPRESORAS 
PARA  TODOS  LOS 
COMMODORES 

El  próximo  número  va  dedicado  particu¬ 
larmente  a  las  aplicaciones  de  impresoras. 

En  realidad  lo  que  pasa  es  que  aparece¬ 
rán  dos  artículos  dedicados  a  la  utilización 
de  impresoras  que  están  doladas  de  Ínter- 
face  paralelo  Centronics  -con  los  equipos 
(  ommodore  (el  VIC-20  y  el  C-64). 

Como  ya  sabréis  muchos,  el  tipo  de 
interface  Centronics  es  el  que  utilizan  la 
mayoría  de  las  impresoras  del  mercado, 
siendo  por  lo  general  el  más  barato  dentro 
de  las  posibles  opciones  de  conexión  de 
cada  modelo  de  impresora  (RS-232.  Cen¬ 
tronics,  etc.)  por  lo  que  se  ha  convertido  en 
uno  de  los  más  utilizados  por  impresoras 
(si  no  es  el  más  utilizado). 

Con  los  dos  programas  que  aparecerán 
podréis  conectar  otras  impresoras  a  vues¬ 
tros  equipos  sin  la  limitación  de  la  gama  de 
que  dispone  la  casa  Comtnodore.  Además 
Diego  comentará  en  la  sección  del  cursillo 
de  lenguaje  máquina  cómo  poder  modificar 
el  programa  (que  por  supuesto  está  escrito 
en  código  máquina),  para  poder  adaptarlo 
a  las  peculiaridades  de  cada  impresora 
(line  feed  automático,  etc.)...  Pero  ¡tran¬ 
quilos!,  los  programas  aparecen  listados 
también  con  un  cargador  en  basic  para  que 
cualquiera  pueda  teclearlos  sin  necesidad 
de  saber  código  máquina,  además;  son  muy 
cortos  (no  como  la  "cosa"  que  aparece  en 
este  número). 


NOMBRE  . 

DIRECCION  . TEIEF . 

POBLACION  .  C.  P . PROVINCIA 


SORTEO  DE 
DICIEMBRE 
DE  COLABORADORES 
—PROGRAMAS  Y  MAGIA— 


DESEO . EJEMPLAR  (ES) 

•  PRECIO  DE  SUSCRIPCION  625  PESETAS  □  •  LECTOR  NO  SUSCRIPTOR  (25%  dt«)  935  PESETAS  □ 

•  NO  SOY  SUSCRIPTOR  PERO  ADJUNTO  BOLETIN  DE  SUSCRIPCION  Y  ME  ACOJO  AL  PRECIO  ESPECIAL 
PARA  SUSCRIPTORES  DE  625  PESETAS  □ 


•  Adiunlo  cheque  por  .  Píos  •  Envfo  giro  n» 

Ne  SUSCRIPTOR  .  {este  número  vo  en  todas  los 


Tu 
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El  sorteo  de  premios  a  los  colaboradores 
cuyos  esfuerzos  han  aparecido  en  los  meses 
de  julio  a  diciembre  incluidos  tendrá  lugar, 
como  dijimos,  el  14  de  diciembre  en  nues¬ 
tra  redacción.  El  único  problema  es  que, 
debido  a  las  fiestas  de  Navidad,  este 
número  lo  cerramos  antes  de  lo  normal, 
hoy  dia  12,  por  lo  cual  no  da  tiempo  a 
incluir  los  nombres  de  los  ganadores  en  el 
mismo.  La  lista  de  los  afortunados  apare¬ 
cerá  en  nuestro  próximo  número  12  del 
mes  de  febrero. 


J 


Convocatoria  del  primer  concurso  nacional  7>  Los  prenl¡os  se  en(r 

de  programación  en  80  columnas  de  Commodore-64  de  1 9^5  coincidien<i 

y  40-80  columnas  del  CONCURSO  NACI 

VIC-20  patrocinado  por  Ferre-Moret,  S.A.  g»  Los  programas  prei 

Con  la  colaboración  de  Commodore-  IVorld,  MORET,  S.A. 

más  de  500.000  ptas.  en  premios.  9°  Los  pr0gramas  que 

„  .  así  lo  considere  FEA 

“  '  programas. 

I*  l>(,drin  participar  lodos  ios  usuarios  de  COMMODORE-64  y  10v  y  os  premios  ascendí 
VIC-20  que  hayan  obtenido  la  tarjeta  de  80  columnas  de  FERRE-  manera 

MORET,  S.A. 

2°  Cada  concursante  podrá  presentar,  un  programa  realizado  por  él 
o  por  un  equipo  del  que  deberán  indicar  un  titular. 

3*  Se  enviará  la  explicación  detallada  del  programa  redactado  en  n<  Tnrfnc  loe  nartirinun 


7*  Los  premios  se  entregarán  durante  la  primera  semana  de  marzo 
de  1985  coincidiendo  con  la  entrega  de  premios  del  PRIMER 
CONCURSO  NACIONAL  ESCOLAR  DE  PROGRAMACION. 

8°  Los  programas  premiados  quedarán  en  propiedad  de  FERRE- 
MORET,  S.A. 

9°  Los  programas  que  no  obtengan  premio,  recibirán,  en  caso  que 
asi  lo  considere  FERRE-MORET,  S.A.  ofertas  de  compra  de  sus 
programas. 

10°  Los  premios  ascenderán  a  500.000  ptas.  repartidos  de  la  siguiente 

1°  250.000  Ptas. 

2°  150.000  Ptas. 

3»  100.000  Ptas. 


ras 


:-MORET,  S.A.  1 
BARCELONA.  Antes  del  31  de  enero  de  1985. 

°  Los  programas  no  premiados  podrán  ser  solicitados  por  sus  pro 
pietarios  en  el  plazo  de  treinta  dias  después  del  fallo. 

°  El  resultado  se  comunicará,  directamente  a  los  ganadores  v  si 
publicará  en  la  revista  COMMODORE  WORLD. 


12°  Los  trabajos  deberán  de  ser  inéditos  y  desarrollar  temas  de  uti¬ 
lidad,  programas  profesionales,  científicos,  educativos,  etcétera. 
FERRE-MORET,  S.A.  se  reserva  el  derecho  de  modificar  las  bases  de 
este  certamen,  dejarlo  desierto  o  suprimirlo,  por  causa  de  fuerza 
mayor.  En  este  caso  la  empresa  se  compromete  a  comunicarlo  a  través 
de  COMMODORE  WORLD. 


CONCURSOS  PERMANENTES 


Colaboraciones  de  Programas  y  Magia 


La  verdad  sea  dicha:  os  est 
están  llegando  son  numerosa; 
vamos  a  aclarar  las  condicioi 


triando:  las  colaboraciones  que  nos 
:  muy  buena  calidad.  Por  lo  tanto, 
:  nuestros  concursos  permanentes. 


2)  Se  sortearán  siempre  seis  premios,  tres  de  15.000,  10.000  y  5.000 
pesetas  en  metálico  de  “Commodore  World"  y  tres  del  mismo  valor  en 
material  de  Microelectrónica  y  Control,  entre  todas  las  colaboracio¬ 
nes  publicadas. 

3)  Se  sortearán  siempre  seis  premios,  tres  de  3.000.  2.000  y  1 .000 
pesetas  en  metálico  de  "Commodore  World"  y  tres  del  mismo  valor  en 
material  de  Microelectrónica  y  Control,  entre  todas  las  contribuciones 
publicadas  en  la  sección  de  "Magia". 

4)  Adicionalmente,  se  sortearán  diversos  premios  de  cintas,  juegos, 
etc.  donados  por  firmas  y  distribuciones,  entre  todas  las 
colaboraciones. 

5)  Los  autores  de  las  colaboraciones  vendidas  dentro  de  nuestro 
“Servicio  de  Cintas"  percibirán  el  20%  del  precio  de  la  cinta. 

6)  Todas  las  colaboraciones  deben  venir  escritas  a  máquina  y  los 
programas  grabados  en  cinta  (si  es  posible!,  o  con  el  listado  completo 
en  impresora.  Nuestros  lectores  más  jóvenes  pueden  escribir  a  mano 


7)  Quedan  automáticamente  descalificadas  tanto  del  sorteo  como  del 
'Servicio  de  Cintas"  las  colaboraciones  que  hayan  sido  enviadas  a 

8)  Las  colaboraciones  se  enviarán  a  "Commodore  World",  c/Bar- 
juillo,  21-3°  izda.  28004  Madrid. 


Es  evidente  que  a  nuestros  suscriptores  les  gusta  viajar.  De 
momento  Joan  Pujiula  visitará  los  Estados  Unidos  en  julio  y  Juan 
Mejuto  Iglesias  irá  a  Inglaterra  en  el  otoño.  Queríamos  sortear  algo 
un  poco  especial  ENTRE  TODOS  LOS  SUSCRIPTORES  cuando 
lleguemos  al  suscriptor  número  8.000,  y  hemos  optado  por  dos  pre¬ 
mios,  uno  concedido  por  Microelectrónica  y  Control  y  otro  concedido 
por  "Commodore  World". 

MEC  regalará  una  impresora  MPS  801  (o  similar)  y  nosotros 
hemos  escogido  un  surtido  de  viajes  muy  "chulos"  para  dos  personas 
para  que  el  ganador  elija  el  que  más  le  apetezca.  La  selección  que 
hemos  hecho  es  la  siguiente: 

Viajes  de  4  días  en  hoteles  de  primera  clase  a  uno  de  estos  lugares: 

París,  Lisboa,  Atenas,  Amsterdam,  Niza,  Viena. 

O  viajes  de  una  semana  en  hoteles  de  4/5  estrellas: 

Canarias  o  Mallorca. 
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casa  de 
software  sa 


tel.  215  69  52  08007  barcelc 


Entra  con  nuestros 
programas  en  el  mundo 

de  la  Música  y  el  Diseño 

■  LA  OTRA  MANERA  DE  ESCRIBIR 


TE5 

|t, 

SS| 

“1  i 

SATiERft 

Escriba  y  dibuje  sobre  la  misma  hoja.  Las  posibilidades  son 
ilimitadas...  Informes,  esquemas,  ficheros  gráficos,  croquis 
con  acotaciones,  presupuestos,  pequeños  planos... 

CARACTERISTICAS: 

-  Hoja  de  50  x  40  caracteres  (400  x  320  pixels) 

-  Modo  texto  (puede  crearse  su  propio  alfabeto) 

-  Modo  gráfico  mediante  joystick  (4  velocidades) 

-  Modo  robot.  Volcado  de  gráficos  predefinidos 
(32x24  pixels)  sobre  la  hoja  (128  gráficos  por  fichero). 

-  Grabación  de  la  hoja  en  diskette  o  cassette 

-  Salida  por  impresora  en  alta  resolución 

-  Versión  cartucho 


TECLADO  MUSICAL 


5l<ahT^50üMD 

ZJtAjac  Software  he 


Transfórmese  desde  ahora  en  músico...  creando,  editando, 
componiendo  y  ejecutando  sus  propias  piezas.  El  increíble 
teclado  musical  hace  mucho  más  qe  convertir  su  commodore 
en  un  sintetizador. 

ARTICULO  VERSION  REFERENCIA 

-INCREIBLE  MUSICAL  KEYBOARD  DISCO  C64D100 

-INCREDIBLE  MUSICAL  KEYBOARD  CASSETTE  C64T100 

-MUSIC  PROCESSOR  DISCO  C64D101 

-  MUSIC  PROCESSOR  CASSETTE  C64T101 

-  KAWASAKI SYNTHESIZER  DISCO  C64D102 

-  KAWASAKI SYNTHESIZER  CASSETTE  C64T102 

-  KAWASAKI  RHYTHMROCKER  DISCO  C64D103 

-  KAWASAKI  RHYTHMROCKER  CASSETTE  C64T103 

-3001 SOUNDODYSSEY  DISCO  C64D104 

-3001 SOUNDODYSSEY  CASSETTE  C64T104 


ORDENA  TU  ORDENADOR 


Mueble  sobremesa  auxiliar 


DESEO  RECIBIR  INFORMACION 

Nombre  y  dirección: 


-X 


I 


Constructor 


Esta  utilidad  fue  diseñada  para  los 
sistemas  PET  de  Commodorc 
pero  el  Listado  1  está  adaptado 
para  funcionar  con  el  C-64  y  el  VIC-20. 

El  Programa  lee  un  programa  en  len¬ 
guaje  maquina  de  disco  y  crea  un  pro¬ 
grama  en  Basic  en  disco  con  el  mismo 
programa  en  lenguaje  máquina  conver¬ 
tido  en  sentencias  Data.  El  programa 
también  añade  un  bucle  For...Next  con 
los  parámetros  correctos  para  leer  los 
datos  c  introducirlos  en  la  memoria 
mediante  unos  Pokes.  Esto  te  propor¬ 
ciona  un  método  sencillo  para  convertir 
programas  en  lenguaje  máquina  en  una 
forma  que  puedan  ser  mezclados  con  un 
programa  en  Basic. 

Cuando  se  ejecuta  el  programa  lo 
primero  que  hace  es  pedirte  el  nombre 
del  fichero  del  programa  en  lenguaje 
máquina  que  será  icido  y  convertido 


de 

datos 


C-64  y  VIC-20 


(lineas  210-260).  El  programa  en  len¬ 
guaje  máquina  tiene  que  ser  un  fichero 
estandard  y  cargable  como  un  pro¬ 
grama  (tipo  PRO).  No  puede  ser  ningún 
tipo  de  fichero  intermediario  creado 
mediante  un  ensamblador.  Si  utilizas  un 
ensamblador  para  crear  el  programa  en 
lenguaje  máquina,  lo  puedes  cargar 
mediante  el  procedimiento  normal  y 
luego  usar  un  monitor  para  salvarlo  en 
disco  como  un  fichero  de  programa. 
Una  vez  cargado  como  un  fichero  de 
programa,  puede  ser  utilizado  nor¬ 
malmente. 

Lo  Que  Hace 


Una  vez  que  el  programa  sabe  el 
nombre  de  fichero  del  programa  en  len¬ 
guaje  máquina,  pide  el  nombre  del 
nuevo  programa  en  Basic  que  será 
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creado  (líneas  260-310).  No  debe  de 
haber  ningún  fichero  en  el  disco  que 
lleve  el  mismo  nombre.  Si  alguno  de  los 
ficheros  no  puede  ser  abierto,  aparece 
un  mensaje  de  error  y  el  programa  se  da 
por  terminado. 

Observa  que  los  comandos  Opcn  de 
las  lincas  250  y  300  abren  un  fichero  de 
programa  (P)  para  leer  y  escribir,  res¬ 
pectivamente.  Esto  no  se  puede  realizar 
con  el  comando  4.0  DOpen  en  Basic.  El 
comando  cstandard  Open  debe  ser  utili¬ 
zado  tal  y  como  se  presenta. 

Seguramente  no  encontrarás  esto  en 
la  documentación  de  Commodore,  pero 
los  ficheros  de  programa  pueden  ser 
abiertos  y  utilizados  igual  que  los  fiche¬ 
ros  secuenciales.  Simplemente  hay  que 
tener  en  cuenta  que  los  dos  primeros 
bytes  de  un  fichero  especifican  la  direc¬ 
ción  de  carga,  indicando  dónde  se  car¬ 
gará  el  programa  en  la  memoria. 

Una  vez  abiertos  los  ficheros  necesa¬ 
rios,  esta  utilidad  lee  y  saca  en  pantalla 
la  dirección  de  carga  del  programa  en 
lenguaje  máquina  (lineas  330-370).  Cuan¬ 
do  se  abre  el  fichero  para  leerlo,  los  dos 
primeros  bytes  que  se  leen  representan 
la  dirección  de  carga  en  el  formato  6502 
(byte  bajo/byte  alto).  Por  lo  tanto,  la 
dirección  se  convierte  en  su  valor  deci¬ 
mal  añadiendo  el  primer  byte  (el  byte 
bajo)  al  segundo  byte  (el  alto)  multipli¬ 
cado  por  256. 

A  continuación,  una  dirección  de 
carga  de  1025  se  coloca  al  principio  del 
programa  en  Basic  que  se  está  creando 
con  PRINT42  en  la  línea  390.  El  valor 
1025  es  la  dirección  de  carga  estandard 
para  todos  los  programas  en  Basic  en 
los  ordenadores  Commodore.  Si  tienes 
un  VIC-20  o  un  C-64,  no  hace  falta 
modificar  este  valor  dado  que  el  carga¬ 
dor  Basic  vuelve  a  situar  el  programa 
cuando  se  carga  en  estos  equipos.  Por  lo 
tanto,  este  valor  es  válido  para  todos  los 
sistemas  Commodore. 

Entrando  en  el  Bucle  Principal 


Una  vez  que  el  programa  de  utilida¬ 
des  sabe  la  dirección  inicial,  entra  en  el 
bucle  principal,  que  lee  un  byte  del  pro¬ 
grama  en  lenguaje  máquina  (linea  410), 
obtiene  el  valor  decimal  del  byte  (linca 
420)  y  añade  los  datos  a  la  línea  del  pro¬ 
grama  en  Basic  que  se  está  constru¬ 
yendo  en  ese  momento  en  L$  (líneas 
430-440).  También  se  incrementa  el  con¬ 
tador  de  bytes  para  la  longitud  del  pro¬ 
grama  en  lenguaje  máquina. 

Se  comprueba  la  longitud  de  la  linea 
creada  en  el  Programa  en  Basic  en  la 
linea  450  para  ver  si  se  pueden  añadir 
más  datos.  De  ser  asi,  el  programa 
vuelve  a  la  linea  410  para  leer  el 
siguiente  byte  del  programa  en  lenguaje 
máquina.  De  otra  forma,  se  llama  a  la 
subrutina  en  la  linca  580  para  añadir 
esta  linea  al  programa  en  Basic  que  se 
está  salvando  en  disco.  Después  de 
escribir  la  linca  en  disco,  el  programa 


Cuando  el  Programa 
de  utilidades 
lee  el  último  byte 
del  programa 
en  lenguaje  máquina 
y  detecta  el  final 
del  fichero, 
cualquier  dato 
restante 
será  añadido 
al  fichero 
en  Basic. 


vuelve  a  la  linea  400  en  vez  de  la  línea 
410  para  colocar  el  “token"  de  los  Data 
(131)  al  principio  de  la  línea  en  Basic. 

La  subrutina  de  las  líneas  580-610 
suma  la  longitud  de  la  linea  en  L$,  más 
los  cinco  bytes  adicionales  para  cada 
linca  en  Basic  a  un  puntero  en  LK  para 
calcular  el  enlace  o  dirección  inicial  de 
la  siguiente  línea  en  Basic.  El  valor  del 
enlace  de  dos  bytes  se  escribe  en  el 
fichero  del  programa  en  Basic  seguido 
del  número  de  linca  de  dos  bytes  de  LN. 
A  continuación,  se  presenta  la  línea  de 
L$,  junto  con  un  byte  de  cero  como 
bandera  de  fin  para  indicar  el  final  de  la 
linea  en  Basic.  Se  utiliza  otra  subrutina 
en  las  lineas  620-630  para  convertir  la 
dirección  de  enlace  y  el  número  de  la 
linea  en  Basic  en  el  formato  de  direccio- 
namiento  de  dos  bytes  6502  y  los  escribe 
en  el  fichero. 

Sólo  un  Byte  más 


Cuando  el  Programa  de  utilidades 
lee  el  último  byte  del  programa  en 
lenguaje  máquina  y  detecta  el 
final  del  fichero,  cualquier  dato  restante 
será  añadido  al  fichero  en  Basic  (lineas 
470-480).  El  valor  de  la  variable  de 
estado  ST  se  salva  en  SS  después  de 
cada  operación  de  lectura  en  el  fichero 
en  lenguaje  máquina.  Este  valor  será  64 
cuando  se  llega  al  final  del  fichero. 

Una  vez  escritos  todos  los  datos  en  el 
fichero  en  Basic,  se  crea  un  bucle  For.- 
...Next  en  L$,  insertando  la  longitud  del 
programa  en  lenguaje  máquina  como  el 
número  de  cuenta  del  bucle  y  la  lectura 
de  la  dirección  de  carga  será  utilizada 
como  la  dirección  del  Pokc  inicial 
(lineas  500-540). 

A  continuación  se  escribe  la  linca  del 
programa  en  el  fichero  en  Basic  con  un 
enlace  de  cero  (dos  bytes,  ambos  de 
cero)  para  indicar  el  final  del  programa 
creado  en  Basic. 

Se  ha  incluido  un  pequeño  ejemplo 
del  tipo  de  programa  que  crea  el  pro¬ 
grama  de  utilidades.  Observa  que  los 
números  de  linea  del  programa  en  Basic 
empiezan  en  la  10  y  se  incrementan  de 
10  en  10.  Si  quieres  modificar  el  número 
para  la  linea  inicial,  vuelve  a  definir  el 
valor  de  LN  en  la  linea  180  de  la  forma 
que  desees.  Del  mismo  modo,  si  cam¬ 
bias  el  valor  de  Ll  en  la  linea  190  se 
modificará  el  incremento  entre  los 
números  de  linea. 

El  programa  crea  lineas  en  Basic  limi¬ 
tadas  a  78  caracteres  o  menos  cuando 
salen  en  pantalla.  Esto  te  permite  utili¬ 
zar  el  editor  de  pantalla  para  modificar 
las  líneas  si  es  necesario.  Si  quieres  un 
resultado  más  compacto  y  no  te  importa 
no  poder  editar  las  lineas,  puedes  modi¬ 
ficar  el  valor  de  prueba  en  la  linea  450 
de  65  a  250.  El  valor  mayor  hará  que  el 
programa  de  utilidades  cree  lineas  de  la 
máxima  longitud  que  permite  el  Basic. 
Las  líneas  pueden  salir  en  pantalla  pero 
no  pueden  ser  editadas  • 
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10  REM  ************************ 

20  REM 

30  REM  CONSTRUCTOR  DE  DRTOS 
40  REM 

50  REM  POR :  ROBERT  BRKER 
60  REM 

70  REM  RDRPTRDO  POR  D. ROMERO 
80  REM 

90  REM  ************************ 

1O0  : 

170  : 

180  LN» 1 0 ; REM  NUMERO  DE  LR  PRIMERR  L 
INER  BRSIC 

190  LI*10 : REM  INCREMENTO  DE  LINERS 
200  ■ 

210  PR I NT " [ CLR  3  EL  £  SPC  3 PRÜbRRMH [SPC3D 
ECSPC3 LENGUR JE  £  SPC ] MHQU I NH “ 

220  PR I NT " R C  SPC  3  CONVERT I R  £  SPC  3  ES  £  SPC  3 
: PR I NT 

230  INPUT  F* 

240  0PEN15,8,15 

250  0PEN1,8,5, "0 • ‘,+LEFTÍ<F$» 16)+", P> 
R" 

260  INPUT#15,EN,EMí  IFENO0THENPRINT 
“ ERROR  £  SPC  3  EN  E  SPC  3  D I SCO- " , EN , EMÍ  GOT 
0650 

270  PR I NT : PR I NT "EL C SPC 3 PRÜGRRMh [ SPC 3 
GENERRDO  C  SPC  3  SE  E  SPC  3  LLRMRRR-  "  PR  I  NT 
290  INPUTFÍ 

300  GPEN2,8,  6/  "0 :  "+LEFTí<F$.>  16>+" ,P. 

M" 


310  I NPUT # 1 5 , EN , EMí -  I FENO0THENPR 1  NT 
“ ERROR  E  SPC  3  EN  E  SPC  3  D 1 SCO- " - EN; EMí • GÜT 
0650 

320  PRINT • PRINT“ÚK, C SPC 3 CRERNDO [ SPC 3 
EL  E  SPC  3  NUEVO £  SPC  3  PRÜGRRMfl . . . “ : PRINT 
330  GET#1,C$:  IFSTO0THEN640 
340  RD=0 ■ I FCí  O " " THENRD=RSC < C* ) 

350  GET#1.C¿:  IFSTO0THEN640 
360  C=0-  IFCÍO""THENC=fiSC(C*) 

370  RD=RD+<256*C) : PRINT"D1RECCI0N[SPC3 

DE  C  SPC  3  COM I ENZO  t  SPC  3 = " <  RD • PR I NT 

380  LK=1025 ; NB-0 

390  PR I NT  42 ,  CHRí <  1 ) ;  CHRí < ; 

400  L*«CHRí < 131 > : REM  TÜKEN  DE  'DRTfi' 

410  GET#  1 ,  C* :  SS»ST :  I FSSO0THEN470 
420  C=0  IF  CÍO"  "THEN  C=RSC<Cí> 

430  IFLEN<L»»1THENL*«L#+*»M 

440  LÍ=LÍ+MIDÍ  ESTRÍE  0,2)  NB=NB+1 

450  IFLEN<L*)C6STHEN410 

460  GOSUB580 : GOTO4O0 

470  I FSSO64THEN640 

480  I FLEN E  Lí ) > 1 THENG0SUB588 

49ü  IFNB*0THEN65O 

500  REM  LRS  SIGUIENTES  LINERS  CRERN 
UNR  LINER  BRSIC 

510  REM  FOR  X=0  TO _  RERD  CPÜKE.. 

.  +X<  C ; NEXT 

520  Lí =CHR* (1 29 ) + " X " +CHR* (1 78 ) + " 0" +C 
HRÍC164) 

530  L$=LÍ+MID$<STRÍ<NB-1 )/2)+"  "+CHR 
Í(135)+"C: " 

540  Lí «LÍ+CHR* <151 ;+MI DiCSTRi(HD> » 2> 
+CHRÍ  <1 70  >  +  " X  >  C  " +CHR*  < 1 30 ) 

550  GÚSUB580 :  PRINT#2,  CHRí  <í¡) ,  CHRí  (0) 

560  PRINT"L0NGITUD[SPC3=“íNB+1 >  “BVTE 
S" -PRINT 

570  PRINT" CONVERS I ON C SPC 3 TER'M I NRDfl "  = 
GOTO650 

560  L=LEN<LÍ ) : LK-LK+5+L  X=LK  G0SUB62 
0 

590  X=LN ; G0SUB628 : LN=LN+L I 

600  FORX=1TOL • PRINT#2<  MIDÍ<LÍ/X/ 1 ^ ; • 

NEXT 

610  PRIHT#2, CHRí (0) *  RETURN 
620  X1=INT(X7256> : X2=X-<X1*256> 

630  PRINT#2/ CHRÍ<X2);CHR$<X1 ) j  RETUR 
N 

640  PR I NT  PR I NT " ERROR  C  SPC  3  EN  C  SPC  3  D I S 
CO / C  SPC  3  PRÚGRRMR [ SPC  3 I NTERRUMP 1  DO " 

650  CLOSE 1 ■ CLÚSE2 ¡ CLOSE 1 5 


Clave  para  interpretar  los  listados 

Todos  los  listados  que  se  publican  en  esta  Revista  han  sido  [HOME]=  Tecla  CLR/HOME  (sin  SH1FT) 
ejecutados  en  el  modelo  correspondiente  de  la  gama  de  [CLR]=  Tecla  CLR/HOME  (con  SHIFT) 
ordenadores  COMMODORE.  Para  facilitar  la  edición  de  Las  indicaciones  IBLK]  a  [YEL]  corresponden  a  la  pulsación 

los  mismos  en  la  Revista  y  para  mejorar  su  legibilidad  por  de  las  teclas  de  1  a  8  junto  a  la  tecla  CTRL.  Lo  mismo  sucede 

parte  del  usuario,  se  les  ha  sometido  a  ciertas  modificaciones  con  [RVSON]  y  [RVSOF]  respecto  a  la  tecla  CTRL  y  las  teclas  9 

mediante  un  programa  escrito  especialmente  para  ello.  Para  los  y  lo. 

programas  destinados  a  los  ordenadores  VIC-20  y  COMMO-  El  resto  de  las  indicaciones  constan  de  la  parte  COMM  o 

DORE  64,  en  los  que  se  usan  frecuentemente  las  posibilidades  SHIF  seguidas  de  una  letra,  número  o  símbolo  —por  ejemplo 

gráficas  que  aparecen  del  teclado,  se  han  sustituido  los  símbolos  [COMM+]  o  [SH1FA] — .  Esto  indica  que  para  obtener  el  grá- 

gráficos  que  aparecen  normalmente  en  los  listados  por  una  serie  fico  necesario  en  el  programa  deben  pulsarse  simultáneamente 

de  letras  entre  corchetes  [J  que  indican  la  secuencia  de  teclas  que  las  teclas  COMMODORE  (la  que  lleva  el  logotipo)  o  una  de 

se  deben  pulsar  para  obtener  el  carácter  deseado.  A  continua-  SHIFT  y  la  tecla  indicada  por  la  letra,  el  número  o  el  símbolo, 

ción  se  da  una  tabla  para  aclarar  la  interpretación  de  las  en  el  ejemplo  anterior:  COMMODORE  y  +  o  SHIFT  y  A. 

indicaciones  entre  corchetes:  respectivamente. 

[CRSRD]=  Tecla  cursor  hacia  abajo  (sin  SHIFT)  En  los  signos  gráficos  además  se  cuenta  el  número  de  veces 

[CRSRU]=  Tecla  cursor  hacia  arriba  (con  SHIFT)  que  aparece.  Por  ejemplo,  [7  CRSRR]  equivale  a  7  pulsaciones 

[CRSRR]=  Tecla  cursor  a  la  derecha  (sin  SHIFT)  de  la  tecla  cursor  a  la  derecha  y  [3  SPC]  tres  pulsaciones  de  la 

[CRSRL]=  Tecla  cursor  a  la  izquierda  (con  SHIFT)  barra  espadadora.  • 
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recibos  de 

CUOTAS 

mantenimiento 

LISTADO  DE  RECIBOS 
LISTADO  ETIQUETAS 


RECTAS 

DE  REGRESION 

QUINIELAS 

FICHAS 

COMERCIALES 

FICHAS  ARCHIVO 


PELUQUERIAS 
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y  TIENDA 

CONTROL  OPERARIOS 
v  ESTHfTIOENNE 
COMISIONES  OPERARIOS 


ETIQUETAS 

DIRECCIONES 

PRECIOS 

EMBALAJES 

LISTADOS 


algunos  de  nuestros  programas  para  los 
ordenadores  personales 
commodore 


(NOVEDAD! 
GESTION  COMERCIAL 


GESTION  COMERCIAL'*! 


"  ¡NOVEDAD 

CUENTAS  CORRIEI 

CONTRa  CUENTAS 


USTAOOS  POR  PANTALLA 
E  IMPRESORA  DE  EXTRACTOS 


i  NOVEDAD! 
DESPIECE  V 
MANIPULACION 

COMPONENTES 
PROCESOS 
DE  TRABAJOS 
LISTADOS 


¡NOVEDAD! 
"“«■ON  QUINIELAS 

n^SP,DA  BOLETOS 


QUINIELAS 
-LISTADO  POR 
JORNADA 
^S„T.AD0  RESUMEN 


Vj*  JORNADAS 


Este  instrumento  importante  para  la  programación 
del  lenguaje  de  máquina  es  la  clave  para  examinar 
las  rutinas  internas  ROM  del  VIC-20  y  el  C-64. 


El  VIC-20  y  el  C-64  resultan  ser 
muy  eficaces  para  programar  la 
animación,  dadas  sus  maravillo¬ 
sas  capacidades  para  el  sonido,  el  color 
y  gráficas.  Todas  estas  características 
pueden  utilizarse  en  BASIC,  el  lenguaje 
residente  del  VIC-20  y  del  C-64.  Pero 
para  adquirir  una  mayor  velocidad,  es 
mejor  realizar  la  animación  y  otras  apli¬ 
caciones  importantes  en  el  lenguaje 
máquina.  Este  programa  está  hecho 
para  el  VIC-20  pero  también  funciona 
con  el  C-64  modificando  la  siguiente 
línea: 

100  DIMBS  (15),  AS  (7):  POKE  53281, 
I:  LB$=  “[19  SPC]”:  GOTO  700. 
Esto  resulta  algo  problemático  para 
el  programador  no  profesional,  dado 
que  los  commodore  no  disponen  de  un 
monitor  interno  para  el  lenguaje  máqui¬ 
na.  El  hecho  de  que  resulta  difícil  encon¬ 
trar  una  buena  documentación  sobre  la 
estructura  interna  del  VIC-20  y  el  C-64  y 
una  descripción  pormenorizada  de  las 
rutinas  ROM  complica  más  el  problema. 

El  programa  presentado  a  continua¬ 
ción  es  un  instrumento  de  lenguaje 
máquina  que  genera  vuelcos  hexadeci- 
males,  vuelcos  de  ASCII  y  desensambla¬ 
jes;  además  proporciona  varías  funcio- 


M/M/// 


Traducido  por  Valerte  SHANKS,  y  adaptado  por  Die¡ 


Descubrir  el  secreto  de  la  estru 


nes  adicionales  también  importantes 
para  la  programación  del  lenguaje 
máquina.  Con  el  uso  de  este  programa 
el  usuario  puede  examinar  las  rutinas 
internas  del  ordenador  y  así  adquirir 
unos  conocimientos  de  primera  mano 
sobre  la  estructura  de  la  máquina  ¡En 
cierto  modo,  el  usuario  está  escribiendo 
su  propia  documentación! 

Sobre  el  Programa 

Estudia  el  Listado  I  para  familiari¬ 
zarte  con  la  estructura  del  Instrumento 
del  Lenguaje  Máquina.  El  programa 
lleva  mucha  documentación  sobre  las 
sentencias  REM;  en  consecuencia,  poco 
hay  que  decir  sobre  cualquier  sección  en 
especial. 

Las  líneas  1 10-140  forman  una  rutina 
de  conversión  de  decimal  en  hexadeci- 
mal.  Esta  rutina  se  utiliza  en  muchas 
partes  del  programa  — principalmente 
porque  la  función  “PEER”  utilizada  en 
las  subrutinas  de  desensamblaje  y 
vuelco  hexadecimal  proporciona  un 


A  odo  el  contenido 
de  la  memoria 
se  imprime  en  hexadecimal. 
Además, 

los  equivalentes  ASCII 
se  imprimen  en  rojo 
en  el  lado 

derecho  de  la  pantalla. 
Esto  resulta 


conveniente _ 

para  la  búsqueda 
de  mensajes  de  código. 


resultado  decimal.  Se  introduce  la 
subrutina  con  D  igual  al  número  deci¬ 
mal  (entre  0  y  65355)  y  se  convierte  en 
DS  igual  al  equivalente  hexadecimal. 
Observa  el  uso  de  la  función  CHR$  para 
la  generación  de  los  dígitos  correctos  (0- 
9  y  A-F). 

La  subrutina  presentada  en  las  líneas 
150-210  realiza  la  función  contraria:  un 
número  hexadecimal  se  convierte  en  el 
equivalente  decimal.  La  rutina  comienza 
con  ES  igual  al  número  hexadecimal  de 
cuatro  dígitos  y  termina  con  E  igual  al 
equivalente  decimal.  En  este  caso,  la 
función  ASC  se  utiliza  para  obtener  el 
número  correcto. 

Además,  la  subrutina  lleva  incorpo¬ 
rada  una  función  para  detectar  errores. 
Si  la  entrada  hexadecimal  contiene 
algún  dígito  no  hexadecimal,  o  si  su 
longitud  no  es  exactamente  de  cuatro 
dígitos,  aparece  un  mensaje  de  error  y  el 
usuario  retorna  al  bucle  principal. 

La  rutina  de  una  sola  línea  en  la  línea 
220  simplemente  introduce  un  número 
hexadecimal.  Se  genera  un  campo 
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hacer  la  conversión  a  mano,  así  que  deia 
que  lo  haga  el  ordenador).  Lo  que  hace 
la  rutina  realmente  es  introducir  un 
número  y  enviarlo  a  la  subrutina  en  la 
línea  110. 

Como  la  conversión  de  hexadecimal  a 
decimal  también  resulta  laboriosa,  con¬ 
viene  automatizar  las  líneas  420-450.  De 
nuevo  se  recurre  a  la  rutina  de  utilidad 
(en  la  linea  150)  para  realizar  la  tarea. 

Las  líneas  480-540  realizan  las  rutinas 
de  vuelco  hexadecimal  y  vuelco  ASCII. 
Se  representan  20  líneas  de  vuelco  hexa¬ 
decimal  en  la  pantalla,  cada  línea 
teniendo  cuatro  entradas.  Esto  significa 
que  las  direcciones  saltan  en  grupos  de 
cuatro,  lo  cual  resulta  una  cifra  conve¬ 
niente  para  trabajar  en  hexadecimal. 

Todo  el  contenido  de  la  memoria  se 
imprime  en  hexadecimal.  Además,  los 
equivalentes  ASCII  se  imprimen  en  rojo 
en  el  lado  derecho  de  la  pantalla.  Esto 
resulta  conveniente  para  la  búsqueda  de 
mensajes  de  código. 

El  desensamblaje  se  incluye  en  las 
lineas  550-640.  La  mayoría  de  las  ruti¬ 
nas  utilizadas  por  el  desensamblaje  ha 
sido  presentada  anteriormente. 

Sin  embargo,  observa  que  la  línea  600 
se  ocupa  de  un  caso  de  “código  malo", 
imprimiendo  tres  interrogaciones  con¬ 
secutivas.  La  linea  630  llama  a  la  rutina 
que  corresponde  a  la  modalidad  de 
direccionamiento  deseada;  de  esta  forma 
la  rutina  genera  la  puntuación  ade¬ 
cuada.  La  variable  P  sigue  la  pista  de  la 
dirección  actual,  mientras  que  C$  es 
igual  al  mnemónico  (p.  ej.  LDA,  STX, 


PLA).  Más  adelante  hablaremos  de 
cómo  funciona  el  desensamblajc. 

Las  lineas  650-690  comprenden  la 
rutina  de  nivel  superior.  Las  teclas  de 
función  programadles  del  ordenador  se 
utilizan  para  llamar  a  las  distintas 
características.  Por  ejemplo,  la  tecla  F1 
inicia  el  desensamblaje  y  la  tecla  F5  ini¬ 
cia  el  vuelco  hexadecimal.  Las  teclas  de 
función  generan  un  código  del  ASCII  de 
133  a  137  y  las  lineas  680  y  690  buscan 
dicho  código. 

Estructura  y  Tablas 

La  última  parte  del  programa  con¬ 
siste  en  la  estructuración  y  las  tablas.  Se 
utiliza  un  “array"  de  variables  de 
“strings"  para  almacenar  el  mnemónico 
necesario.  Quizá  este  tipo  de  variable 
resulte  un  poco  más  lenta  que  las 
demás,  pero  tiene  la  ventaja  de  ocupar 
relativamente  poco  espacio.  Esto  es 
importante,  ya  que  el  VIC-20  estandard 
sólo  dispone  de  3.5  K  de  RAM  utiliza- 
ble.  El  "array"  A$()  contiene  los  57 
mnemónicos  mientras  que  el  “array" 
B$()  contiene  la  información  de  direc¬ 
cionamiento. 

Pondremos  un  ejemplo  para  explicar 
cómo  estos  “arrays"  generan  el  des¬ 
ensamblaje  correcto.  Supongamos  que 
un  carácter  en  la  memoria  resulta  ser 
igual  al  hexadecimal  25.  El  dígito  más 
importante  (el  2  en  este  caso)  llama  al 
“string"  B$(2).  Ahora,  mirando  la  línea 
590,  el  dígito  menos  importante  (5)  se 
multiplica  por  3  y  se  incrementa  por  1 
para  dar  el  número  16.  W$  se  establece 
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inverso  de  cuatro  bloques  de  longitud 
para  indicar  al  usuario  la  longitud 
deseada  del  número  de  entrada. 

Las  lineas  230-360  contienen  las 
subrutinas  utilizadas  por  el  desensam¬ 
blaje.  El  cometido  de  estas  rutinas  es  el 
de  generar  la  “puntuación”  adecuada 
para  el  campo  operando  (las  comas, 
signos  de  dólar,  paréntesis,  etc.).  Dado 
que  el  desensamblajc  utiliza  el  mnemó¬ 
nico  estandard  6502,  cuesta  bastante 
trabajo  generar  la  puntuación  más  ade¬ 
cuada.  Observa  que  la  variable  F  es  de 
0,1  ó  de  2,  según  sea  la  longitud  de  0, 1  ó 
2  caracteres.  El  "string”  A$(0)  contiene 
casi  toda  la  puntuación  necesaria,  y  las 
secciones  deseadas  se  separan  en  la  línea 
250. 

Las  lineas  270-300  convierten  las 
direcciones  relativas  en  direcciones 
absolutas  al  decidir  si  la  bifurcación  es 
regresiva  o  anticipada,  y  si  está  restando 
o  sumando. 

La  rutina  en  las  líneas  370-410  te  pro¬ 
porciona  una  conversión  de  decimal  a 
hexadecimal.  (Resulta  muy  laborioso 


e  utiliza  un  “array” 
de  variables 
de  ‘“strings” para 
almacenar  el  mnemónico 
necesario. 

Quizá  este  tipo  de 
variable  resulte 
un  poco  más  lenta  que  las 
demás,  pero  tiene 

_ la  ventaja _ 

de  ocupar  relativamente 
poco  espacio. 


igual  a  MID$(B$12],16,3),  que  resulta 
ser  12C.  Este  código  toma  el  mnemó¬ 
nico  correcto  (representado  por  C$  en  la 
linea  620)  a  través  del  segundo  mnemó¬ 
nico  (AND  en  este  ejemplo)  en  el 
"string"  A$(l)  —  lo  cual  explica  el  12 
en  el  “string”  12C. 

Se  encuentra  la  modalidad  de  direc¬ 
cionamiento  correcta  al  tomar  ASC 
(“C”),  es  decir  67,  y  restarle  64,  dejando 
3.  Por  lo  tanto,  la  subrutina  330  se  llama 
en  la  línea  630  y  se  utiliza  para  generar  la 
puntuación.  El  código  lleva  una  direc¬ 
ción  de  página  cero  en  este  ejemplo. 

Aunque  esta  rutina  parezca  un  poco 
larga,  en  la  práctica  el  programa  fun¬ 
ciona  bastante  de  prisa.  El  desensam- 
blaje  de  20  líneas  tarda  seis  segundos. 

Introducir  el  Programa 


Antes  de  introducir  el  Listado  I ,  ten 
en  cuenta  que  aunque  se  vean  muchas 
sentencias  REM,  no  deben  de  introdu¬ 
cirse  en  el  ordenador.  Esto  seria  impo¬ 
sible  dada  la  memoria  limitada  del  VIC- 
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20.  Para  que  sea  más  fácil  encontrar  las 
sentencias  que  se  tienen  que  introducir, 
observa  que  el  programa  empieza  en  la 
linea  100  y  se  va  aumentando  por  dece¬ 
nas.  Todas  las  sentencias  REM  se  ubi¬ 
can  en  otros  números.  Asi  que  comienza 
a  partir  de  100  e  introduce  todas  las 
lineas  que  terminen  en  0. 

Los  controles  de  cursor  se  utilizan  de 
vez  en  cuando  en  las  sentencias  PRINT 
y  ENTER.  Dado  que  la  impresora  utili¬ 
zada  para  generar  este  listado  no 
imprime  los  símbolos  de  control  del 
cursor  (sólo  las  impresoras  Commodorc 
lo  hacen),  hay  que  emplear  otros 
medios.  Se  utilizan  las  abreviaturas 
entre  paréntesis  para  indicar  los  contro¬ 
les  del  cursor,  y  los  REM  en  las  lineas 
31-51  indican  cómo  deben  ser  interpre¬ 
tados. 

El  programa  es  de  fácil  introducción, 
pero  hay  que  tener  cuidado  que  se 
mecanografíen  los  espacios  exactamente 
igual  que  en  las  distintas  sentencias 
Print. 

Después  de  entrar  el  programa,  es 
aconsejable  salvarlo.  Después  de  com¬ 
probar  que  no  hay  errores  de  mecano¬ 
grafía  y  después  de  probar  el  programa, 
se  debe  hacer  una  copia  de  seguridad. 

Utilizar  el  Programa 

Sólo  se  utilizan  las  teclas  de  función 
[fl]  -  [f7],  para  operar  el  programa. 

Primero  se  carga  y  se  ejecuta  el  pro¬ 
grama.  Después  de  que  salga  la  pantalla 
con  el  título,  el  ordenador  espera  los 
mandatos: 


•  [fl]  -  Esta  tecla  inicia  el  des- 
ensamblaje.  Después  de  pulsar  la  tecla, 
el  ordenador  te  pedirá  una  dirección  de 
comienzo.  Teclea  un  número  hexadeci- 
mal  de  cuatro  dígitos  y  pulsa  la  tecla 
rcturn.  Asi  se  inicia  el  desensamblaje.  Si 
le  das  una  dirección  de  comienzo  erró¬ 
nea,  recibirás  un  mensaje  de  error. 

•  [f3]  -  Esta  tecla  continúa  el  proceso 
de  descnsamblaje  a  partir  del  punto  en 
que  tú  lo  dejaste.  Se  desensamblan  unas 
20  lineas  adicionales. 

•  [f5]  -  Esta  tecla  inicia  el  vuelco 
hexadecimal.  Primero  se  solicitará  una 
dirección  de  comienzo.  Teclea  un 
número  hexadecimal  de  cuatro  dígitos  y 
pulsa  la  tecla  return;  así  se  inicia  el 
vuelco  hexadecimal.  La  columna  de  la 
izquierda  representará  la  dirección  de 
memoria  en  azul.  Las  cuatro  columnas 
siguientes,  también  en  azul,  representa¬ 
rán  el  contenido  de  la  memoria.  Las 
últimas  cuatro  columnas,  en  rojo,  repre¬ 
sentarán  la  interpretación  ASCII  del 
contenido  de  la  memoria. 

•  [f7]  -  Esta  tecla  continúa  el  vuelco 
hexadecimal  a  partir  del  punto  en  que  lo 
deja  el  usuario. 


•  [O]  -  Esta  tecla  permite  la  conver¬ 
sión  de  un  número  hexadecimal  en  un 
número  decimal.  Después  de  pulsar  la 
tecla  [f2]  el  ordenador  solicita  un 
número  hexadecimal.  Teclea  un  número 
de  cuatro  dígitos  y  pulsa  rcturn.  Se 
representará  el  equivalente  hexadeci¬ 
mal.  Si  se  teclea  un  número  hexadecimal 
erróneo,  se  recibirá  un  mensaje  de  error. 

•  [f4]  -  Esta  tecla  convierte  un 
número  decimal  en  un  número  hexade¬ 
cimal.  Después  de  pulsar  la  tecla,  se 
solicita  un  número  decimal.  Teclea  el 
número  y  pulsa  return.  Se  representará 
el  equivalente  hexadecimal.  Ten  en 
cuenta  que  la  entrada  tiene  que  ser  entre 
0  y  65535  ó,  en  caso  contrario,  se  repre¬ 
sentará  un  mensaje  de  error. 

Para  que  no  tengas  que  aprender  lodo 
de  memoria,  puedes  utilizar  una  planti¬ 
lla  de  cartón  para  indicar  con  detalle  los 
usos  de  las  teclas  de  función.  Esta  plan¬ 
tilla  se  demuestra  en  la  Figura  I.  Se 
recorta  la  plantilla  y  se  pega  a  un  trozo 
de  cartón.  Se  recorta  y  se  tira  la  zona  del 
centro.  Asi  la  plantilla  se  acopla  alrede¬ 
dor  de  las  teclas  de  función. 

El  Instrumento  de  Lenguaje  Máquina 
resultará  útil  para  entender  la  estructura 
interna  de  ordenador.  Mediante  el  uso 
del  desensamblaje,  las  rutinas  pueden 
ser  interpretadas  y  se  puede  descubrir  el 
tipo  de  estructura  necesaria  para  que 
éstas  puedan  ser  introducidas.  El  vuelo 
ASCII  resultará  útil  tanto  para  encon¬ 
trar  las  palabras  clave  Basic  en  la 
memoria  como  para  los  mensajes  de 
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MUSICA  CON  COMPUTADOR 
con  el  Teclado  “MUSIC  64” 


EL  SINTETIZADOR 
MONOFON1CO 


La  relación  de 
cuales  se  dispone, 
monitor  y  son  los 
0  Trompeta 

1  Brass 

2  Clarinete 


los  instrumentos  de  los 
está  indicada  en  el  video 
siguientes: 


3 


4  Flauta 

5  Guitarra 

6  Wha-Bra* 

( cobres  wha) 


Instrumentos  de 
cuerda  (cuerdas) 
Piano 

Organo  eléctrico  I 
Organo  eléctrico  II 
Acordeón 
Random 
(sintetizador) 


Modificaciones  paramétricas 


El  teclado  “MUSIC  64”  se  conecta  direc¬ 
tamente  al  COMMODORE  64. 

Se  puede  emplear  como  sintetizador 
monofomeo  o  bien  como  teclado  de  órgano 
polifónico.  Para  ello  se  necesita  lo  siguiente- 

•  Un  COMMODORE  64.  8 

•  Un  vídeo  monitor  o  un  receptor  de 
televisión. 

•  Y  una  unidad  FLOPPY  DISK  o  de 
cassettes. 

ALBAREDA  le  proporciona  a  usted: 

•  Un  teclado  de  4  octavas  de  Do  a  Do 

•  Un  adaptador  para  realizar  el  empalme 
del  teclado  con  el  computador. 

•  El  software  necesario. 


F1  para  alcanzar  el  parámetro  siguiente 
E3  para  regresar  al  parámetro  precedente 
elegido31”3  aUmentar  el  valor  del  Parámetro 

elegido”*  dis,ninuir  el  valor  dei  parámetro 


monitor  y  son  los  siguientes: 

1  Spinete  4  Flauta 

2  Acordeón  5  Banjo 

3  Campanas  tubulares 


EL  TECLADO  DEL 
ORGANO  POLIFONO 

La  relación  de  los  instrumentos  de  los 
cuales  se  dispone,  está  indicada  en  el  vídeo 


Modificaciones  paramétricas 


Fl  Ataque 
F3  Declive 
F5  Sostener 
F7  Soltar 


F2  Volumen 
F4  Traslado 
F6  Forma  de  la  onda 
F8  Cido  de  la  operación 


I  Deseo  recibir  información  complete  del  MUSIC-64  sii 
j  por  mi  parte: 

|  Nombre  . 


sin  ningún  compromiso 


Dirección  . 


Teléf.:  . 

C.P . 


...Ciudad  . 

...  Provincia  . 


Soy  distribuidor...  D 


Soy  particular...  O 


(*)  Marcar  con  un  asterisco  lo  que  interese. 


instrumentos  C/.  Carmen,  19 

Y  accesorios  musicales  TARREGA  (Lérida)  -  Teléfonos  (973)  31  04  02  -  31  23  51 
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4/  REMA  CORRESPONDEN  A  TECLAS  CON  S 
HIFT  A 

48  REMA  0  CON  CBM  C ABAJO  A  LA  I2QUIE 
RDA) .  * 

49  REMA  EL  NUMERO  QUE  APARECE  ENTRE 
LOS  A 

50  REMA  CORCHETES  ES  EL  NUMERO  DE  VE 
CES  A 

51  REMA  QUE  DEBE  PULSAR  LA  TECLA. 

A 

52  REMAPOR  EJEMPLO  E7SPC3  SON  7  ESPA 
CIOS.A 

53  REM 

54  REM 

1 0Ó  D I MBf  < 1 5 ) , A$  <  7  >  ■ P0KE36879 . 228 : LB 
í="£13SPC3"  GÚTO700 

105  REM 

106  REM 

107  REMA AACÜNVERS ION  DECIMAL  A  HEXAD 
ECIMhLAAA 

108  REM 

109  REM 

lió  D*=" "  0=1 

120  1-lHT.V/lbJ  J=D-16AI  D*=CHR4< J+4 

8-7A(J>9))+DA 

130  G=G+i : D=I  ÍFO<BTHEN120 

140  RETURN 

145  REM 

146  REM 

147  REMAAACONVERS I ON  HEXADECIMAL  H  D 
ECIMALAAA 

148  REM 

149  REM 

150  E=Ú;  1=0 :  IFLEN(E$)O4THEN210 
160  J=ASC'.MIDí<Eí.4-I,  l>>-48 
170  IFJ<0ÚRJ>22THEN210 

180  I F J >9AND J < 1 7THEN2 1 0 

190  E=E+<16M,A<J+7A<J>9>>  1=1+1  IFI 

O4THEN160 

200  RETURN 

210  PR I N  T " [ 9CRSRL 1 ERROR  C  2SPC 3 "  1=0  0 
ÜTO200 

215  REM 

216  REM 

217  REMA A A  RUTINA  DE  ENTRADA  DE  DIRE 
CCION  AAA 

218  REM 

219  REM 

¡i 20  PR I NT " C HOM 3DIRECCIONESPC3 INICIAL 
I NPUT  *'  C  R'v'SÜN  I  [  4SPC  ]  t  R  VSOFF  3 1 6CRSRL  3 
“,E*  GOSUB150  RETURN 

225  REM 

226  REM 

227  REMAAA  RUTINhS  DE  DESENSAMBLADO 
PARA  LOS  DIFERENTES  MODOS  DE  DIRECCI 
ONAMIENTO  AAA 

228  REM 

229  REM 

230  F=0  RETURN 

240  F= 1 • D=PEEK <P+1)B=3: GOSUB 1 1 Ó 
250  C$=Cí +M 1  Di  <  Ai < 0 ) , 3AA+ 1 , 3  > +DA+M I D 
ícAAvü) , 3AA-5,  3) 

260  RETURN 

270  F=1  D=PEEK<P+1) 

280  I FD< 1 28  THEND=PaD+2 : B=5  GOSUB 110 
GÚTÚ310 

290  D=128-< 127ANDD) : D=P-D+2 ¡ B=5 ■ GÜSU 
B110  D=P-D+2 

300  D=P-D+2 : C$=CA+ " £  SPC  3  A " +DA  RETURN 

310  C»=C*+',CSPC3*,,+DA  RETURN 

320  F=2 • D=PEEK\P+1 )+256APEEK<P+2> : B= 

5 : GOSUB 1 10 • RETURN 

33ü  G0SUB320 • Cí=Cí+" ESPC  3*"+D$ : RE TUR 


350  GOSUB320 • Cí=Cí+"CSPC3A"+D4+" , Y" 
RETURN 

360  GGSUB32Ü  :  C$=C*+"ESPC3 >  i"+D4+“  / " 
RETURN 

365  REM 

366  REM 

367  REMAAA  CONVERSION  DECIMAL  A  HEXA 
DECIMAL  PARA  EL  USUARIO  AAA 

368  REM 

369  REM 

370  PR I NT " [ HOM 3  " ,  LB.Í , "[ HOM 3 DECIMAL". 

360  I  NPUTD-í  D= VAL  <  Di  >  B=5 

390  I FDC 1 0RD965535THENPR 1  NT  "  E  7CRSRL 3 

[CRSRU3ERRÚR"  GÜT041U 

400  GOSUB 1 1 0  PR I NT " [ 8CRSRL 3 [ CRSRU  3 = [ SPC  3 
*";D* 

410  RETURN 

415  REM 

416  REM 

417  REMAAA  CONVERSION  HEXADECIMAL  A 
DECIMAL  PARA  EL  USUARIO  AAA 

418  REM 

419  REM 

420  PRINT" CH0M3 " ; LEA 

430  I NPUT " C HOM JHEX" , Eí ■ PRINT" £ CRSRU 3 
" , LB4-,  "[H0M3"  :GOSUB150  E4=STRítE-<  E= 
LEN<E$>-1 

440  IFI=0THENRETURN 

450  PRINT“[HOM3=£SPC]#";MIDí*.E</2.E> 

: RETURN 

455  REM 

456  REM 

457  REMAAA  RUTINA  DE  VOLCADO  HEX  V  A 
SC II  AAA 

458  REM 

459  REM 

460  G0SUB228 
470  P=E 

460  PRINT"! CLR  3  C 2CRSRD  3 " , 

490  FORZ=  1 TÜ20 :  B=F'  B=5 :  GOSUB  1 1 0  PR  I N 
TD-f, 

500  FÚRV=1TÜ4  PRINT"! SPC 3"/  B=3  D=PE 
EK<P>  G0SUB11Ó  PRINTDí,  F-P+l  NEXT 
510  P=P-4  PRINT*'£SPC3£RED3".  FÜRG=1T 
04 : D=PEEk(P) 

520  I FDC320R <  D> 1 28ANDDC 161 >  THEND=46 
530  PRINTCHRÍCD) >  P=P+ 1 : NEXT 
540  P0KE2 12,0PRINT"EBLU3"  NEXT • RETU 
RN 

545  REM 

546  REM 

547  REMAAA  RUTINA  DE  DESENSAMBLADO  A 

AA 

548  REM 

549  REM 

550  GOSUB220 
560  P=E 

570  PR I NT “ E  CLR  3  £  2CRSRD  3 " , 

580  FORZ= 1 TO20 : D=P ■ B=5 ; GOSUB 1 10 : Pi=D 

590  1  =  1  NT (PEEKXPV16)  ;  J=PEEK<P)-1 Aló 
:  W4=MlDí  vB-í  <  I >  ,  JA3+1 , 3) 

6Ú0  IFWÍ="???" THENC4=W4  F=0 • GÜTÜ640 
61ÚI  =VAL LEFTí  <. U* ,  1  >  >  ■  J=VAL (MIDI  vWi 
,2.1>) 

620  C$=MIDí C A$< I ) , JA3-2, 3)  H=ASCtMID 
Í<W*,3, l>)-64 

630  ÜNAGÜSUB230 . 240 , 240 , 330 , 270 , 240 , 

240. 340. 350.240. 240, 360 
640  PR  I NTPÍ + "  £  2SPC  3  "  +CA :  P=P+ 1 +F  '■  NEXT 
RETURN 

645  REM 

646  REM 

647  REMAAA  RUTINA  DE  MAXIMO  NIVEL  AA 
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¿45»  REM 

650  GETFí  IFF$=" "THEN650 
¿¿O  PRINT" CHÜM] " , 

¿70  GEÍFi  IFFÍ=" "THEN670 

680  I  FASC  <  Fí  K 1 33ÜRASC <  FS  » 1 38THEH67  0 

¿80  I = 1 39-ASC (Fí / • ÜN I Ü0SUE370 - 420 . 43 

0- 460- 570- 550 : G0TÜ65Ú 

695  REM 

¿96  REM 

697  REM***  PREPARACION  DE  LAS  TABLAS  *** 

698  REM 

699  REM 

700  PR I  NT  "  C  CLR  ]  f  ELU  ]  '• :  PR I  NT  ■  PRI  NT  “  C  3PC  ] 
DESE!  1S AMBLADOR  t  SPC  3  V I C-20 " : PR I NT 

710  PR I NT " C  5SPC ] PÜR [ SPC ] THOMAS  í SPC ) H 
ENRY" 

720  A$<  1 )  =  "  ADCANDASLBCCBCSBEQB  ITBMI  “ 

730  A#<  2  > = " BNEBPLBRKBVCB VSCLCCLDCL I " 

740  fl«3>a“ CLVCMPCPXCPYDECDEXDEYEÜR " 

750  A*k4;='' I NC I NX I NV-JMP  JSRLDALDXLBV" 

7¿0  A*  <  5  > = “ LSRNOPORAPHAPHPPLAPLPROL “ 

770  A*  C  6  )*•' RÚRRT I RT  S3BCSECSEBSE  ISTA" 

780  Rí<.7>="STXSTVTAXTAVTSXTXhTXSTVA" 

790  B*  <  0 ) = “ 23A53J?????????53C 1 3C???5 
5A53B 1 3A??????53D 1 3D???" 

800  E*C  1  > = " 22E53K ??????? '?53F 1 3F???2 
6A53 I ?????????53H 1 3H??? " 

810  bt ».  2  >  =  45D 1 2 J??????  1 7C 1 2C58C???5 
7A 1 2B5SA?? ? 1 7D 1 2D58D???" 

82ú  £$  <  3  > = " 1 8E 1 2K ????????? 1 2F58F???6 
5A 1 2 1  ?????????  1 2HSSH???  " 


830  E*  <  4  > = “ 62A38J?????????38C5 1 C???5 
4PI38B5 1 A???44D38D5 1 D???  M 
84Ü  Bí  <  5  > = “ 24E38K?????????38F5 1 F?  ??2 
8038 1 ?????????38H5 1 H???  ” 

850  B»<6)="63A11J?????????11C61C???5 
601 1E61H???44L1 1D61D???“ 

8¿tí  Ei <  7  >  =  " 25E 1 1 K ????????? 1 1 F  6 1 F???6 
701 1 !?????????! 1H61H???" 

87o  B*  1 8  > = “ ???68 J ????? 772C68C 7 1 C???3 
7A???76A???72D6SD7 1 D??? " 

380  b*0)=“l 4E68K??  ?? ?  ? 72F68F 7 1  ü ???7 
3H¿8 1 770??????68H  ??????" 

890  £3 «.  1 0  >  *  " 48E46 J47B???48C46C47C??? 
74A46B73A?  ?  ?4SL»4¿B47D 
900  B*\ll )=" 15E46K??????48F46F47G??? 
310461 75A???48H46H47 1 ???" 

910  Bí  C 1 2  j = " 34B32 J??????34C32C35C??? 
43A32B36A???34D32D35D??? “ 

920  B* < 13;="21E32K^????????32F35F??? 

27A32I?????????32H35H???M 

930  L1  ■  14-  =  "iot¿4J  -  '  •--'•••>íji-¿4»;41l  ■••••  ' 

42A64B52A???33B64D4 1 077?” 

935  Bi( 15>=” 1 6E64K?????  ????64F4 1 F ??? 
66064 1 ???????  ??Ó4H4 1 H??? " 

940  A*<0>=“ [?SPC3#$CSPC Jí CSPC3 - XtSPCD 
- VC2SPC3* C2SPC JiCSPC J , X. > - YC3PC3  CíCSPC] 
(*“ 

950  GOTO650 


LINEA  0  MODIFICAR  PARA  EL  C-64 


100  DIMBí(15>-Ai<7;  P0KE53281, 1  LB$» 
■'n9SPC]"  :GOTO700 


¿Qué  hace  Vd.  con  las  cintas  de  su 
impresora 

¿Las  tira? 


^  Regenérelas,  ahorrará  el  50  por  100.  y  tendrá  el  mismo  servicio, 
■iiM  s¡  g¡  tejido  de  su  cinta  o  cassette  está  en  condiciones,  lo  entintare¬ 
mos.  en  caso  contrario  lo  sustituiremos  por  otro  nuevo. 

Somos  la  única  empresa  en  España  que  con  éxito  realizamos 
este  trabajo,  la  prueba  es  que  las  mejores  firmas  de  este  pais 
trabajan  con  nosotros. 

Asi  que  siga  leyendo.  ¿No?  Somos  una  empresa  industrializada, 
pero  al  mismo  tiempo,  cada  trabajo  es  especial  para  cada  cliente, 
podemos  ceñirnos  al  grado  de  tintaje.  que  usted  quiera  o  su  orde¬ 
nador  necesite,  por  ello  con  las  primeras  cintas  que  nos  mande 
para  probar  (porque  más  vale  una  imagen  que  mil  palabras),  reci¬ 
birá  usted  una  tarjeta,  para  que  pueda  decirnos  exactamente  su 
opinión  y  lo  que  desee. 


Machí.  S.  J2. 

Avda.  A  usías  March,  34 
Teléfono:  (96)  178  07  23 
BENITA  YO  (Valencia) 


Regeneramos  todo  tipo  de  cintas  y  cassettes  de  impresoras  de  ordenadores,  cintas  de 
máquinas  de  escribir,  de  calcular,  etc. 


cuando  están  usadas? 

¡NO  LO  HAGA! 
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Castellanizar  el  Commodore-64 


Del  abecedario:  Siguiendo  a  la 
Real  Academia  Española  en  su 
opúsculo  que  recoge  las  Nuevas 
Normas  de  Prosodia  y  Ortografía 
(R.A.E.,  Ortografía,  Madrid,  Imprenta 
Aguirre,  19742),  puede  observarse  la  ca¬ 
rencia  de  la  letra  “Ñ",  en  su  versión 
mayúscula  y  minúscula  que,  a  partir  de 
nuestro  programa,  se  obtienen  pulsando 
las  teclas  siguientes: 


Aunque  no  es  propio  del  abecedario 
castellano  actual,  nos  ha  parecido  inte¬ 
resante  añadir  el  carácter  “9”  con  el 
que  nuestro  ordenador  queda  “catala- 
nizado”  y  preparado  también  para 
algún  uso  histórico  de  nuestro  idioma. 
Se  obtiene  con  IC=I  vlcl 

De  los  signos  de  puntuación  y  notas 
auxiliares 

En  castellano,  la  existencia  en  algu¬ 
nos  casos  de  una  tilde  sobre  la  vocal, 
además  de  responder  a  unas  normas 
ortográficas  bien  claras  y  precisas  (op. 
cit. ,  cap.  III),  que  tienden  a  evitar  anfi¬ 
bologías  ortográficas  (caso  de  depósito, 
deposito,  depositó,  por  ejemplo),  su  uso 
representa  al  acento  de  intensidad  de  la 
pronunciación  y  responde  perfectamente 
al  “desiderátum”  de  cualquier  sistema 
de  escritura:  correlato  univoco  entre 
sonido  y  grafía.  Para  evitar  un  pro¬ 
grama  complejo  que  supliera  la  imposi¬ 
bilidad  del  ordenador  (salvo  con  el  uso 
de  “sprites”)  de  sobreimpresionar  ca¬ 
racteres  (como  la  máquina  de  escribir 
tiene  para  el  caso  de  “  ’  "),  se  ha  diseñado 
un  nuevo  juego  de  caracteres  vocálicos 
que,  ajustándose  estrictamente  a  las 
demás  formas  tipográficas  del  COM- 
MODORE,  incorporan  la  tilde.  Se 
obtienen  pulsando: 

|C=|y  la  vocal  correspondiente. 

Admitiendo  una  costumbre  tipográ¬ 
fica  que,  poco  a  poco,  se  va  implan¬ 
tando,  se  excluyen  las  vocales  mayúscu¬ 
las  con  acento,  pese  a  que  en  las  Normas 
citadas  se  insiste  expresamente  en  que  “el 
empleo  de  mayúsculas  no  exime  de 
poner  tilde...”  (párrafo  6,  apdo.  15°); 
sin  embargo,  su  inclusión  convertiría  el 
teclado  del  COMMODORE  en  un 
alarde  nemotécnico  para  el  programa¬ 
dor  al  tenerse  que  asignar  los  caracteres 
a  otras  teclas  distintas  a  las  vocálicas 
(por  tener  estas  ya  ocupadas  sus  tres 
posibilidades:  mayúscula,  minúscula, 
minúscula  con  tilde).  Este  es  el  caso  de 
la  forma  “ü”  (en  desagüe,  por  ejemplo) 
que  hemos  situado  en  lugar  de  [<§3  (pul¬ 
sación  directa)  por  imposibilidad  de 
incorporarlo  en  su  letra  correspon¬ 
diente.  No  incluimos  la  diéresis  (“••”)  en 


El  programa  que  proponemos  trata  de  incorporar  al 
COMMODORE  64  algunos  caracteres,  signos  de 
puntuación  y  notas  auxiliares  atípicos  del  inglés 
ffv  pero  que,  en  castellano,  son  imprescindibles 
i  en  unos  casos  y  propios  de  nuestra 

\  idiosincrasia  idiomática  en 


Por  Angel  ROMERO  BELMONTE 
Profesor  de  Lengua  y  Literatura  Españolas 
Instituto  de  Bachillerato 


_ J 

Jáxb* 


i LrW -V1 

O  i  1  . 

§§r 

T3SJ1  'vr 


Soy  profesor  de  Lengua  y  Literatura  Españolas  en  el  Instituto 
de  Bachillerato  de  esta  población.  Aficionado  a  la  informá¬ 
tica,  be  seguido  su  revista  COMMODORE  WORLD  desde  el 
comienzo,  ello  me  lleva  a  enviarles  el  adjunto  articulo  para 
que,  si  les  parece,  sea  publicado  como  colaboración 
desinteresada. 

Creo  que  en  nuestro  mundillo  de  “commodorianos"  puede 
resultar  interesante  el  doble  objetivo  del  articulo:  cuidar  nues¬ 
tro  idioma  y  “castellanizar"  el  teclado  del  ordenador. 

_ EN  DEFENSA  DEL  IDIOMA _ 

No  se  trata  de  defender  aquí,  con  un  mal  entendido 
purismo  acadcmicista,  la  limpieza  de  nuestra  lengua;  todo  lo 
contrario,  las  lenguas  no  son  productos  “incontaminados", 
sino  que,  o  se  hallan  genéticamente  emparentadas,  o  se  enri¬ 
quecen  por  “contagio  lingüístico"  siguiendo  una  especie  de 
vaivén  histórico,  de  predominio  de  unas  sobre  otras  (piénsese 
cómo,  en  el  terreno  concreto  de  la  ciencia,  el  castellanismo  fue 
el  dominante  en  los  siglos  XVI-XVII  y  el  galicismo  dejó  su 
impronta  durante  los  siglos  XV1II-XIX).  Estos  hechos,  inevi¬ 
tables,  por  otra  parte,  no  tienen  nada  de  censurable.  Son  for¬ 
mas  de  enriquecimiento  cuando  los  “préstamos  léxicos"  no 
vienen  a  superponerse  a  denominaciones  ya  existentes  en  el 
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las  demás  vocales  porque  su  uso  como 
signo  diacrítico  indicativo  de  que  un 
diptongo  se  ha  de  considerar  como  bisi¬ 
lábico,  queda  reservado  a  la  poesía. 

La  entonación,  expresión  de  los  más 
diversos  estados  anímicos  o  de  los  más 
variados  sentimientos,  se  superpone  al 
contenido  denotativo  de  una  frase  con 
una  flexibilidad  y  riqueza  que  otros 
idiomas  no  tienen.  El  castellano  posee  la 
particularidad  de  poder  cambiar  su 
esquema  dentro  de  una  misma  frase;  o 
lo  que  es  lo  mismo,  en  una  misma  ora¬ 
ción  puede  haber  períodos  entonativos 
diversos,  de  ahi  la  necesidad  real,  no 
capricho  acadcmicista,  de  indicar  el 
punto  de  la  frase  en  que  la  entonación 
pase  de  una  anunciación,  por  ejemplo,  a 
un  tono  de  sorpresa  (admiración)  o  de 
pregunta  (interrogación);  y  esta  capaci¬ 
dad  lo  hace  necesitar  de  una  representa¬ 
ción  gráfica  de  inicio  de  admiración  e 
interrogación  (Vid,  como  ejemplo  la 
frase:  Entonces,  el  gran  mundo,  ¿no  le 
parece  a  usted  mal?)  frente  a  otros  idio¬ 
mas  (por  ejemplo  el  inglés)  en  los  que 
basta  la  representación  del  tonema  final 
por  no  tener  esta  flexibilidad.  Así  pues, 
ios  caracteres  “¡”  y  vienen  a  susti¬ 
tuir  respectivamente  a  ”  y  “f”  del 
COMMODORE  (debe  tenerse  en  cuenta 
que  ahora,  el  signo  de  la  potenciación 
"f  aparecerá  en  pantalla  como  "¿"  sin 
que  ello  implique  otras  repercusiones. 

Los  demás  signos,  o  bien  ya  están 
incorporados  en  el  ordenador  (",’’,  “;"), 
o  bien  pueden  usarse  algunos  gráficos 
sustitutivos.  Para  la  raya  (  '— ')  puede 
usarse  fsHIFl 1  y  H  (ASCII=96);  como 
guión  (“-"),  el  signo  de  la  sustracción 
(ASCII=45).  Otros  signos  de  los  inclui¬ 
dos  por  la  R.A.E.  como  el  calderón  o  la 
manecilla,  han  perdido  en  el  uso  abso¬ 
luta  vigencia  y  los  dejamos  al  margen; 
hacemos  una  excepción  con  el  párrafo 


■Hay  que  empezar 
también, 

a  apreciar,  como  valor 
técnico  importante, 
a  aquellos 
ordenadores  cuyo 
teclado  venga 
de  origen 
“españolizado” 


que  se  incluye  en  ISHIFTI  y  (T],  y  el 
asterisco  (|C=|  y  Q),  así  como  las  abre¬ 
viaturas  ' “°”i“*''_quepueden  obtenerse 
con  IC=I  y  Rin,  ISH1FTI  y  1]§>],  respec¬ 
tivamente. 

Mención  aparte  merece  la  inclusión 
de  las  comillas,  que  hemos  asignado  al 
gráfico  I  C=  I  y  Q,  separándolas  asi  de 
las  "de  cadena"  que  trae  incorporadas 
el  C-64  y  con  lo  que  se  evita  el  engorro 
de  programarlas  con  CHR$  (34),  como 
ya  saben  la  mayoría  de  los  usuarios  de 
este  ordenador. 

La  definición  de  ios  caracteres 


El  tema  de  la  definición  de  caracteres 
por  parte  del  usuario,  ya  ha  sido  tratado 
en  varios  sitios,  inclusive  en  esta  misma 
revista  (en  el  núm.  1  se  explica  el 
procedimiento  y  se  da  una  rutina  para 
editar  caracteres;  también  en  el  núm.  7 
hay  un  programa  en  el  mismo  sentido; 
sin  embargo,  ambos  artículos  van  diri¬ 
gidos  al  VIC  20,  sin  que  se  encuentre 
otra  referencia  al  C-64  que  la  del  núm.  5 
con  motivo  del  juego  “Los  peligros  del 
pozo”). 

Sin  que  el  programa,  por  tanto,  sea 
ninguna  novedad,  nos  parece  oportuno 
explicarlo  un  poco  y  que  pueda  servir  de 


base  para  que  alguien  añada  o  cambie 
alguno  de  los  caracteres  propuestos 
(pensamos,  por  ejemplo,  en  la  utilidad 
para  estudiantes  de  teoría  de  conjuntos, 
lógica  proposicional,  de  griego,  o  por 
qué  no,  incluso  añadir  el  alfabeto  cirí¬ 
lico). 

El  programa  consta  de  dos  partes 
bien  diferenciadas  como  corresponde  a 
las  dos  grandes  operaciones  que  hay  que 
realizar  para  definir  nuestros  propios 
caracteres.  Un  primer  grupo  de  instruc¬ 
ciones  para  pasar  la  información  que  el 
ordenador  tiene  sobre  los  caracteres  en 
la  ROM  (y  que  nosotros  no  podemos 
cambiar  por  ser  “memoria  de  sólo  lec¬ 
tura")  a  partir  de  unas  ciertas  direccio¬ 
nes  de  la  RAM  (en  la  que  ya  podemos 
intervenir  cambiando,  suprimiendo  o 
añadiendo  caracteres);  este  bloque  com¬ 
prende  las  líneas  0-7.  U  na  segunda  parte 
del  programa  (lineas  8-41)  en  la  que  se 
dan  las  instrucciones  pertinentes  a  los 
16  caracteres  que  nosotros  hemos 
rcmodclado  como  queda  dicho  ante¬ 
riormente.  Expliquemos  las  cosas  con 
mayor  detalle: 

Línea  0  —♦Borra  la  pantalla  y  sitúa  el 
letrero  de  "espera"  en  el  centro  de  la 
misma  en  tanto  se  ejecuta  el  programa 
(unos  35  segundos,  aproximadamente). 

Linea  1  —  Reserva  memoria  RAM 
para  los  caracteres  impidiendo  que  un 
programa  en  BASIC  pueda  invadir  esta 
zona  de  memoria. 

Línea  2  -♦  Inhibe  el  teclado  para  evi¬ 
tar  inadvertidas  interrupciones  durante 
la  ejecución  del  programa  que  malogra¬ 
rían  el  mismo. 

Linca  3  —  Desconecta  los  registros  de 
E/S  y  conecta  la  ROM  en  su  lugar  (el 
VICI1,  como  todos  los  microprocesado¬ 
res  de  su  clase,  sólo  puede  procesar 
simultánea  I6K,  esto,  es.  “una  página"). 


idioma  originario,  sino  a  suplir  algún  vacio  designativo 
(siempre  muy  concreto  para  el  caso  de  lenguas  de  gran  tradi¬ 
ción  cultural)  motivado  por  las  innovaciones  de  la  ciencia  y  de 
la  técnica,  y  sin  que  esta  interferencia  produzca  reajustes  gra¬ 
ves  al  sistema  lingüístico  propio,  entendiendo  por  esto  los  que 
afectan  a  los  subsistemas  gramatical  y  fonológico. 

A  nadie  se  le  oculta  que  estamos  en  "el  siglo  de  la  lengua 
inglesa",  especialmente  desde  su  segunda  mitad,  y  que  todos 
los  idiomas,  de  una  u  otra  manera,  sufren  esta  influencia,  no 
siendo  el  castellano  una  excepción  (al  fin  de  cuentas,  tampoco 
el  propio  inglés  se  ha  librado  de  ésto:  no  se  olvide  que  a  lo 
largo  de  su  historia  ha  incorporado  a  su  vocabulario  un  50% 
de  palabras  no  genuinas,  especialmente  del  latín). 

Desterrados  ciertos  tópicos  como  el  de  que  los  idiomas  son, 
o  tienen,  una  capacidad  especial  para  expresar  unos  ciertos 
campos  conceptuales  y  poca  para  otros  (y  ello  explicaría  el 
"éxito"  de  algunas  lenguas  en  determinadas  épocas,  como 
queda  señalado),  hay  que  buscar  la  razón  de  ser  de  este  “colo¬ 
nialismo  lingüístico"  en  otras  causas  político-económicas,  no 
siempre  confcsables  pero  que  podrían  explicarse  con  uno  de 
los  considerandos  del  Convenio  Multilateral  sobre  Asociación 
de  Academias  de  la  Lengua  Española  (presentado  en  1960  por 
la  correspondiente  colombiana):  "...tratándose  de  los  pueblos 


hispanos,  la  unidad  de  lenguaje  es  uno  de  los  factores  que  más 
contribuyen  a  hacerlos  respetables  y  fuertes  en  el  conjunto  de 
las  naciones..." 

Y  esta  búsqueda  de  unidad  es  una  obligación  también  del 
ámbito  de  la  informática  "de  consumo",  muy  importante  por 
cuanto  es,  a  la  vez,  un  mundo  muy  nuevo  sin  la  tradición  que 
en  otros  terrenos  técnicos  ha  servido  para  decantar  las  formas 
lingüisticas  útiles  para  el  castellano,  de  los  neologismos  extra¬ 
vagantes  e  innecesarios  introducidos  por  una  mal  entendida 
moda:  y  muy  joven  por  la  edad  de  sus  adeptos,  sobre  todo  por 
la  divulgación  a  través  de  su  incorporación  como  asignatura 
en  Academias,  Colegios  e  Institutos,  y  son  ellos  los  más  sensi¬ 
bles  a  aceptar  ciertos  cambios  influidos  por  el  prestigio  de  la 
“letra  impresa"  de  revistas  y  libros,  a  los  que  se  consideran 
como  modelos  de  norma  lingüistica. 

Hemos  de  empezar  a  ser  críticos  receptores  de  una  biblio¬ 
grafía  que  adopta  préstamos  de  manera  desigual:  unas  veces 
por  aceptación  directa  de  términos  (“arrays".  "buffer", 
"stack".  etc.),  que  no  sabemos  por  qué  no  se  traducen;  otras, 
por  malas  traducciones  (como  la  voz  comando,  del  inglés 
“command”,  que  en  castellano  tiene  otro  sentido  y  se  cruza 
etimológicamente  con  mando  i;  en  ocasiones,  por  creación  de 
neologismos,  a  partir  del  inglés,  con  una  indisculpable  igno- 
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Linea  4  —  Copia  en  RAM  la  infor¬ 
mación  sobre  los  caracteres  de  origen 
que  posee  la  ROM  y  pone  el  teclado 
para  comenzar  en  minúsculas  (como  la 
posición  inicial  de  una  máquina  de 
escribir). 

Linea  5  —  Vuelve  a  conectar  los 
registros  de  E/S. 

Línea  6  — ►Vuelve  a  permitir  el  uso 
del  teclado. 

Linea  7  —  Coloca  el  “puntero  de 
caracteres"  en  la  nueva  dirección  de  la 
RAM  a  la  que  ha  de  dirigirse  el  micro- 
procesador  para  encontrar  la  nueva 
información. 

Si  el  programa  se  detuviese  aquí,  ten¬ 
dríamos  un  juego  de  caracteres  y  de  grá¬ 
ficos  sin  ninguna  diferencia  con  el  origi¬ 
nal;  pero  vamos  a  crear  nuestros 
propios  caracteres.  Tomemos  el  carác¬ 
ter  “á“  (definido  en  las  líneas  12-13). 
Hemos  de  averiguar  dos  cosas:  la  direc¬ 
ción  de  pantalla  a  la  que  queremos  asig¬ 
nar  el  carácter,  y  los  datos,  en  decimal, 
que  definen  dicho  carácter.  Veamos  lo 
primero. 

Como  se  sabe,  el  C-64  asigna  a  las 
teclas  2  juegos  de  caracteres  y  3  posibi¬ 
lidades  en  cada  juego.  En  uno: 

Pulsación  directa  —  mayúsculas 

ISHIFTI  y  I Letra I  —  gráfico  de  la 
derecha. 

|C=1  y  I  Letra I  gráfico  de  la  izquierda. 

En  el  otro: 

Pulsación  directa  --►minúscula 
ISHIFTI  y  iLctral  —mayúscula 
I C=1  y  I  Letra  I  —gráfico  de  la  izquierda. 

Esta  última  solución  es  la  que  hemos 
adoptado  para  nuestros  propósitos. 
Tomemos  la  tecla  “A".  En  pulsación 
directa  nos  da  "a";  con  ISHIFTI.  tene¬ 
mos  “A”  y  ahora  queremos  poner  “á” 


Caracteres  añadidos  al  C  ommodore  64 

Código  de 

Posición  de 

Carácter 

Forma  de  obtenerlo 

pantalla 

inicio  en  RAM 

rc=l  y  [MI 

103 

13112 

A 

PFlyE] 

106 

13136 

á 

|C=|y|A| 

112 

13184 

é 

IC=!  y  lEl 

113 

13192 

i 

IC=I  y  lil 

98 

13072 

ó 

t&JyLOl 

121 

13256 

ú 

EEJyffi) 

120 

13248 

u 

lcS>i 

0 

12288 

s 

EEb  E 

124 

13280 

¡ 

S 

31 

12536 

LD 

30 

12528 

§ 

rsHiFTivm 

105 

13128 

EElyS 

95 

13048 

E3  y  EEl 

100 

13088 

ISHIFTI  y  Rail 

122 

13264 

EEbE 

104 

13120 

en  lugar  del  gráfico  de  la  izquierda.  Si 
localizamos  dicho  gráfico  en  el  Manual 
del  Usuario  (pp.  132-134)  veremos  que  le 
corresponde  la  cifra  112  como  "código 
de  pantalla".  Para  calcular  la  dirección 
de  memoria  a  partir  de  la  cual  se  va  a 
recoger  la  información  sobre  este  carác¬ 
ter,  aplicamos  la  siguiente  fórmula: 

[M2288  +  (C*8)| 

en  donde  P=  n°  de  posición  de  inicio  en 
RAM  (dato  buscado)  y  C=  código  de 
pantalla  (112,  en  nuestro  ejemplo). 
Obtendremos  como  dirección  de  memo¬ 
ria  la  13184  que  es  nuestro  primer  dato. 

Obtengamos  el  segundo  dato,  es 
decir,  las  cifras  que  recojan  la  informa¬ 
ción  sobre  la  forma  del  carácter 
deseado.  Sobre  un  cuadrado  dividido  en 
64  partes,  dibujamos  nuestro  carácter  y 
obtenemos  el  núm.  que  corresponde  a 


cada  línea.  Asi,  por  ejemplo,  de  la  linea 
(a)  hemos  pintado  los  cuadrados  con 
valores  8  y  4;  de  la  linea  (b),  los  valores 
16  y  8.  etc.. 


rancia  de  los  mecanismos  de  creación  castellanos  (sirva  de 
ejemplo  el  caso  de  la  palabra  ¡ndexado.  del  inglés  “Índex", 
olvidando  que  el  término  lo  tomó  el  inglés  del  nominativo 
latino,  pero  que  la  base  patrimonial  del  castellano  procede  del 
acusativo,  con  lo  que  el  término,  sin  necesidad  de  recurrir  a 
otras  lenguas,  ha  de  ser  indiciado,  del  lat.  índice  (m).  como  lo 
es  el  cultismo  índice.  Los  ejemplos  podrían  multiplicarse 
abundantemente  y  no  es  este  el  propósito. 

Hay  que  empezar  también,  a  apreciar,  como  valor  técnico 
importante,  a  aquellos  ordenadores  cuyo  teclado  venga  de 
origen  “españolizado"  (que  sepamos,  algunos  microprocesa¬ 
dores  ya  lo  traen  incorporado),  presionando  asi  a  los  fabri¬ 
cantes  e  importadores  a  plantearse  seriamente  la  deficiencia. 

Entre  tanto  ocupamos  el  lugar  que  nos  corresponde  en  el 
mundo  de  la  ciencia  y  de  la  técnica  actual,  “...la  defensiva 
pura  se  estima  como  un  medio  provisional  para  recobrar  la 
iniciativa  que  conduzca  a  la  victoria..."  (Vid,  S.  GILI  GAYA, 
“El  lenguaje  de  la  ciencia  y  de  la  técnica”,  en  Presente  y  futuro 
de  la  lengua  española.  Madrid.  Instituto  de  Cultura  Hispánica. 
II,  1964). 

Para  los  que  ya  poseemos  nuestro  COMMODORE  64. 
proponemos  las  siguientes  páginas  que,  en  cierto  modo,  pue¬ 
den  paliar  este  problema. 


Por  Angel 
ROMERO 
RIAMOSTE, 
Profesor  de  Lengua 
y  Literatura 
Españolas,  Instituto 
de  Bachillerato  de 
Euengirola  (Lector). 


a)  8+4=12 

b)  16+8=24 

c)  32+16+8+4=60 

d)  4+2=6 

e)  32+16+8+4+2=62 
0  64+32+8+4=102 

g)  32+16+8+4+2=62 

h)  ningún  cuadro=0 

Por  tanto  los  datos  para  definir  a  "a" 
son:  12,  24,  60,  6,  62.  102,  62,  0 

Ahora  se  trata  de  aplicar  la  siguiente 
subrutina  para  situar  estos  datos  en  sus 
lugares  de  memoria  correspondientes: 

— FORB=P  (posición  de  inicio)  TOP+8 
(última  posición  del  carácter): 

READC  (datos  decimales  del  carácter): 
POKEB,  C:  NEXT. 

—DATA  (8  núm.  decimales  del 
carácter) 

Para  nuestro  ejemplo,  tendríamos: 

12  FORB=13184  TO  13191:  READC: 
POKEB,  C:  NEXT 

13  DATA  12,  24,  60.  6,  62,  102,  62,  0 
Definidos  todos  los  caracteres  ( 16  en 

nuestro  programa)  y  ordenadas  las 
lineas  en  sucesión,  tendríamos  el  listado 
n°  1. 
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0  PRINTH[CLR]"  PR I  NT 11 C 1 0CRSRD  H  1 1 CRSRR  ] 
ESPERE  [  SPC3UNI SPC  3 MÜMENT  O  " 

1  PÜKE52 , 48  =  P0KE56 . 48 : CLR 

2  PQKE56334,  PEER (56334 )ANB254 

3  PÜKE 1 , PEEK t 1 ) ANB25 1 

4  FORA=0TÚ2047  •  PCIKEA+ 1  ¿288 -  PEEK  <  A+55 
296)  NEXT 

5  PÜKE 1 - PEEK  < 1 ) ÚR4 

6  PÜKE56334, PEEK C 56334) ORI 

7  P0KE53272,  <PEEk\53272>FiNB24ü)  +  12 

8  FÜRN=0TO15 

9  RE ADA,  B 

10  FORH=ATOB : READC = POKE11-  C : NEXTM 

11  NEXTM 

12  DATA131 12/ 13119/60,0, 102,118, 126, 
110- 102-0 

13  BATA  131 36, 13143,60,0, 124, 102, 102, 
102, 102,0 

14  BATA 13 164, 13191 , 12, 24, 60, 6  - 62, 102 
-62,0 

15  BATAl 3192, 13199, 12,24,60, 102» 126, 
96-60-0 

16  DATA 13072, 13079, 12, 24, 0, 56, 24, 24, 
60,0 

17  BATA  13256, 13263, 12,24,60, 102, 102, 
102-60-0 

16  DATA 13248, 13255, 12,24, 102, 102, 102 

- 102,62,0 

19  BATA 12288, 12295, 102,0, 102, 102, 102 
, 102,62,0 

20  DATA13280, 13287,0,0,60,96,96,60,2 
4,48 

21  DATA 12536, 12543,24,0,0,24,24,24,2 
4,0 


22  BATA 1 2528 , 1 2535 , 24 , 0 -  24 , 48 -  96 , 1 02 
-60-0 

23  BATA13128, 13135,60,98,24, 102-24-7 
0-60-0 

24  BATA13648, 13655,8,28, 62,28-8,0-0- 
0 

25  BATA 13088, 13095,56, 108, 108, 108,56 
,0, 124,0 

26  BATA 13264, 13271,56, 12-60, 1 06-60,0 
,  124,0 

27  DATA13120, 13127, 102, 102- 102,0,0,0 

,0,8 

28  PR1NT"£CLR3" 


Para  los  distribuidores  de  Commodore 


ATENCION  A  NUESTRA  OFERTA 


Cedemos  a  los  Distribuidores  de  C^m^ore.u  ^  e„  Espada, 

105  SSrfU  en  gestión  de  empresa. 

GRAN  NOVEDAD:  ^  ^ ^  n<.has  dc  art¡cal„s 

Aplicación  de  control  de  x  adap,a  a  la  impresa. 

Para  Commodore  64  con  unidad  de  monoflopy.  Dtsena 


______  _  C/Fray  Luis  de  León,  2.  Teléfonos  (983)  30  08  00  y  30  09  00  -  47002  Valladolid 

COPER5A:  Delegación  y  Servicio  Técnico  de  Commodore  y  Seiko. 
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Por  Enoch  L.  MOSER  (RVN  EE.UU.) 


El  arte 

de  realizar  organigramas 


Plasma  gráficamente  el 
fluir  de  tus  programas, 
mejorando  a  la  vez  tus  habili¬ 
dades  como  programador,  uti¬ 
lizando  organigramas. 


La  escritura  de  un  programa  en 
cualquier  lenguaje  implica  cuatro 
procesos  o  fases  distintas:  defini¬ 
ción  del  programa,  generación  del 
organigrama,  codificación  y  depura¬ 
ción. 

Aunque  en  programas  sencillos  se 
puede  evitar  el  realizar  una  o  dos  de  las 
bases  sobre  el  papel,  siempre  hay  que 
realizarlas  todas,  aunque  sólo  sea  men¬ 
talmente.  Cada  persona  tiene  su  propia 
forma  de  trabajar;  algunos  son  capaces 
de  codificar  directamente  un  programa 
de  gran  complejidad. 

Sin  embargo,  la  mayoría  de  los 
programadores  tienen  que  realizar  todas 
las  fases  descritas,  incluso  en  los  pro¬ 
gramas  más  sencillos.  Los  programas 
desarrollados  ateniéndose  a  dichos  pasos 
suelen  ser,  generalmente,  de  mejor  cali¬ 
dad  que  aquellos  que  se  codificaron 
directamente. 

Definición  del  Programa 

Antes  de  escribir  un  programa,  lo 
primero  que  debes  tener  claro  es  lo  que 
quieres  hacer.  Esto  puede  parecer  obvio 
pero,  como  saben  los  estudiantes  de 
ciencias,  el  primer  paso  para  resolver  un 
problema  es  definirlo. 

Supon  que  quieres  escribir  un  pro¬ 
grama  para  que  un  estudiante  realice 
ejercicios  aritméticos.  No  es  suficiente 
saber  que  quieres  escribir  una  lección  de 
aritmética.  Debes  tener  en  mente  un 
conjunto  completo  de  objetivos  y  lo 
mejor  para  ello  es  escribirlos. 


Tus  objetivos  deben  estar  bien  deta¬ 
llados,  pero  no  creas  que  no  van  a  cam¬ 
biar  una  vez  escritos.  Puedes,  y  debes 
revisarlos  según  vaya  evolucionando  el 
programa  aunque  deberías  considerar¬ 
los  inicialmente  con  cuidado  para  saber 
lo  que  realmente  quieres  hacer. 

Por  ejemplo,  empecemos  con  los 
siguientes  objetivos: 

1.  — Los  problemas  aritméticos  se 
generarán  aleatoriamente. 

2. — El  estudiante  podrá  seleccionar 
cualquiera  de  las  cuatro  operaciones 
aritméticas  (suma,  resta,  multiplicación, 
y  división). 

3.  — En  cada  una  de  las  operaciones, 
el  estudiante  podrá  seleccionar  entre 
cuatro  grados  de  dificultad. 
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4.  — Se  actualizará  la  puntuación  y  se 
presentará  después  de  cada  problema. 

5.  — Se  podrá  cambiar  de  operación 
después  de  cada  problema. 

6.  — La  puntuación  se  pondrá  a  cero 
tras  cada  cambio  de  operación. 

7.  — Se  permitirá  poner  a  cero  la  pun¬ 
tuación  sin  cambiar  de  operación. 

8.  — Cada  vez  que  se  resuelva  un  pro¬ 
blema  se  indicará  si  la  solución  es 
correcta. 

9.  — Si  la  respuesta  está  equivocada  se 
mostrará  la  solución  correcta. 

10.  — Se  generarán  informes  sobre  los 
progresos  del  estudiante,  basados  en  la 
puntuación  y  el  nivel  de  dificultad. 

Una  vez  definidos  los  objetivos  del 
programa  podemos  pasar  a  la  siguiente 
fase. 

Realización  del  Organigrama 

Cualquier  programa,  no  importa  en 
qué  lenguaje  esté  escrito  (en  código 
máquina  o  en  un  lenguaje  de  alto  nivel 
como  el  BASIC),  está  formado  por  un 
conjunto  de  secuencias  de  operaciones  y 
un  conjunto  de  puntos  de  decisión  desde 
los  que  se  seleccionan  las  secuencias  a 
ejecutar. 

Mediante  un  organigrama  (represen¬ 
tación  gráfica  de  dichas  secuencias  y 
decisiones)  se  puede  visualizar  fácil¬ 
mente  el  flujo  del  programa.  Si  está  bien 
hecho,  el  programador  puede  estructu¬ 
rar  el  programa  de  forma  eficiente. 
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Mediante  un  organigrama  el  autor 
puede: 

— Asegurarse  de  que  se  satisfacen 
todos  los  objetivos. 

— Verificar  que  se  han  considerado  y 
previsto  todas  las  posibilidades. 

— Identificar  el  código  necesario  en 
varios  sitios  dentro  del  programa,  y 
segrcgarlo  si  procede  en  forma  de 
subrutinas  evitando,  de  esta  forma,  la 
redundancia  de  código. 

Además,  si  se  utilizan  organigramas, 
se  simplifica  el  resto  de  los  procesos  y  el 
programa  resultante  es  más  profesional. 

Los  símbolos  utilizados  en  los  dia¬ 
gramas  se  atienen  a  ciertas  normas,  y  si 
es  preciso  realizarlos  con  pulcritud,  es 
posible  conseguir  plantillas  especiales 
sin  gran  dificultad.  Sin  embargo,  no  es 
totalmente  obligatorio  tener  una  planti¬ 
lla  para  realizar  bien  un  organigrama,  ni 
tampoco  es  necesario  utilizar  todos  los 
símbolos  que  se  han  definido.  De  hecho, 
muchos  programas,  si  no  todos,  pueden 
representarse  adecuadamente  con  tan 
sólo  tres  símbolos. 

En  la  Figura  I  se  muestran  los  símbo¬ 
los  utilizados  en  los  organigramas, 
tomados  de  una  plantilla  basada  en  la 
norma  americana  X3. 5-1966.  Entre 
ellos,  los  tres  más  utilizados  son:  deci¬ 
sión,  proceso,  y  proceso  predefinido  y 
conector. 

Los  procesos  predefinidos,  normal¬ 
mente  llamados  subrutinas,  suelen  dis¬ 
tinguirse  añadiendo  una  línea  vertical  u 
horizontal  al  símbolo.  Esto  se  utiliza 
para  indicar  que  dicho  símbolo  engloba 
muchos  pasos  de  programas,  posible¬ 
mente  incluyendo  operaciones  y  deci¬ 
siones.  Descubrirás  que  es  muy  útil  usar 
estos  procesos  predefinidos  en  todos  los 
casos  salvo,  quizás,  en  los  más  sencillos. 

En  la  Figura  2  se  muestra  una 
variante  del  símbolo  de  decisión,  que 
resulta  muy  útil  cuando  existan  muchos 
puntos  de  salida  (por  ejemplo,  la  sen¬ 
tencia  ON  de  BASIC).  Esta  situación 
puede  representarse,  también,  por  una 
secuencia  de  bloques  de  decisión  única: 
pero  esta  variante  es  más  compacta  y 
simplifica  la  visualización  del  flujo  del 
programa. 

Organigramas  organizados  sin  fallos 

Cuando  se  diseña  un  organigrama,  se 
deben  tener  en  cuenta  4  factores  impor¬ 
tantes. 

En  primer  lugar,  se  debe  suponer  que 
el  organigrama  lo  va  a  tener  que  inter¬ 
pretar  otra  persona  y  que  tú  no  vas  a 
estar  allí  para  explicárselo.  Tú  mismo 
podrás  apreciar  los  resultados  de  este 
supuesto,  si  uno  o  dos  años  después, 
decides  modificar  el  programa  para 
realizar  una  nueva  aplicación.  En  ese 
momento,  tú  eres  la  otra  persona  y  no 
hay  nadie  que  pueda  explicarte  el 
organigrama. 

En  segundo  lugar,  no  incluyas  dema¬ 
siados  detalles.  La  idea  es  crear  una 
imagen  gráfica  del  programa.  Si  se  inclu¬ 


yen  demasiados  detalles,  se  distorsiona 
la  imagen.  Los  detalles  se  colocarán  en 
la  siguiente  fase. 

En  tercer  lugar,  cuando  hayas  con¬ 
cluido  el  organigrama,  revisa  los  objeti¬ 
vos  del  programa  fijados  en  la  primera 
fase  para  asegurarte  de  que  se  cumplen. 
Este  puede  ser  un  buen  momento  para 
revisar  los  objetivos  pero,  asegúrate  de 
que  cualquier  modificación  que  realices 
quede  reflejada  en  el  organigrama. 

Finalmente,  comprueba  que  se  han 
considerado  todas  las  posibilidades  y  se 
han  previsto  los  flujos  necesarios.  Por 
ejemplo,  ¿qué  ocurriría  si  se  realizara 
una  entrada,  por  teclado,  distinta  de  la 
esperada?  o  ¿qué  ocurriría  si  se  realizara 
una  división  por  cero? 

Durante  la  fase  de  realización  del 
organigrama  debes  comenzar  a  elaborar 
una  lista  con  los  nombres  de  las  varia¬ 
bles  que  utilizarás  en  el  programa. 
Durante  esta  fase,  se  suelen  detectar  las 
variables  necesarias  para  su  utilización 
como  contadores  de  bucle,  indicadores, 
para  registrar  las  opciones  selecciona¬ 
das  por  el  operador  y  para  almacenar 
los  datos  introducidos  mediante  el 
teclado.  Los  nombres  de  variables  asig¬ 
nados  en  esta  etapa  deben  utilizarse  en 
el  diagrama  de  flujo  e  incluirse  en  la 
lista  de  variables.  Esto  simplificará  el 
proceso  de  codificación,  al  reducir  el 
número  de  veces  que  deberás  repasar 
la  lista. 

La  creación  de  la  lista  de  variables 
continuará  en  la  fase  de  codificación,  ya 
que,  sin  duda,  necesitarás  más  variables, 
cuando  llegues  al  último  nivel  de 
detalle. 

Esta  lista  te  reportará  muchas  venta¬ 
jas  posteriormente.  Eliminarás  el  tiempo 
que  normalmente  se  pierde  buscando  en 
el  código  del  programa  si  un  nombre  de 
variable  ya  ha  sido  utilizado,  o  volviendo 
a  codificar  partes  en  las  que  hayas  utili¬ 
zado  nombres  de  variable  previamente 
asignados. 

La  figura  3  muestra  el  diagrama  de  un 
programa  que  cumple  los  objetivos  pre¬ 
viamente  definidos. 

En  este  programa,  como  en  la  mayo¬ 
ría  de  los  programas  que  forman  bucles 
por  naturaleza,  la  primera  ejecución  del 
bucle  debe  ser  diferente  del  resto.  La 
razón  es  que  deben  establecerse  las  con¬ 
diciones  iniciales.  Estas  se  utilizarán 
para  que  el  programa  comience  de 
forma  ordenada. 

En  este  organigrama,  el  primer  blo¬ 
que  refleja  el  establecimiento  de  condi¬ 
ciones  iniciales.  Observa  que  el  flujo  del 
programa  tiene  en  cuenta  estas  condi¬ 
ciones  iniciales  y  no  imprime  los  indica¬ 
dores  de  función  o  de  dificultad  en  esta 
primera  pasada. 

En  este  momento,  se  incluyen  los 
nombres  de  variables  que  ya  se  conocen. 
Se  identifican  las  subrutinas.  De  hecho, 
en  este  momento  es  posible,  e  incluso 
aconsejable,  elegir  los  números  de  linea 
de  comienzo  de  las  subrutinas.  Para  el 
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Fig.  1.  Símbolos  estandard 

de  un  diagrama  de  flujo. 

Y  . 


1" 


Fig.  2.  Símbolo  de  decisión  con  salidas  múltiples. 


VIC-20  y  el  Commodore  64,  no  debe 
importarte  utilizar  números  de  línea 
altos  ya  que  todos  ocupan  lo  mismo  en 
memoria  (2  octetos). 

La  Guía  de  Referencia  del  Programa¬ 
dor  del  VIC-20  tiene  un  error  respecto  a 
este  punto.  El  único  efecto  que  sobre  la 
memoria  puede  tener  el  utilizar  núme¬ 
ros  de  linea  altos  es  el  acortamiento  de 
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las  líneas  a  88  caracteres  (80  en  el  C64)  y  gramas  no  tendrás  prácticamente  que  |.  Un  flujo  lógico  con  números  de 

las  referencias  en  ASCII  (un  octeto  por  recurrir  a  la  tarjeta  de  referencia.  Según  linea  incrementados  regularmente, 
carácter)  a  dicha  línea.  El  primer  efecto  vaya  realizando  la  codificación,  conti-  Cuando  el  programa  se  ha  codificado 
sólo  será  importante  cuando  trate  de  núa  actualizando  la  lista  de  variables  directamente,  los  números  de  linea  no  se 

compactar  su  programa  para  incluir  con  aquellos  nuevos  nombres  que  vayas  incrementan  regularmente  debido  a  la 

tantas  sentencias  como  sea  posible  en  asignando.  inserción  de  objetivos  descubiertos  sobre 

una  línea.  También  es  importante  documentar  |a  marcha,  a  la  conversión  de  bloques 

Otros  puntos  importantes  acerca  del  internamente  el  programa,  utilizando  redundantes  en  subrutinas  o  a  la  adición 

organigrama  de  la  Figura  3  son:  sentencias  de  comentario  (REM).  Esto  de  sentencias  para  corregir  problemas 

— Las  entradas  incorrectas  por  teclado  será  especialmente  útil  si  tienes  que  revi-  encontrados  en  la  depuración, 

se  ignoran.  sar  tu  programa  dentro  de  mucho  2.  Pocos  GOTO.  Es  más  fácil  añadir 

— El  programa  sólo  genera  un  pro-  tiempo.  nuevas  lineas  colocándolas  fuera  del 

blema  si  se  han  seleccionado  las  opcio-  Cuando  la  memoria  es  escasa,  como  fluj0  principal  del  programa  y  utili- 
nes  necesarias.  ocurre  en  un  VIC  sin  expansión,  y  se  zando  la  sentencia  GOTO  para  entrar  y 

— Todas  las  salidas  de  los  bloques  de  precisa  compactar  el  programa,  se  salir,  que  renumerar  todas  las  sentcn- 

decisión  se  muestran  en  el  organigrama.  deben  eliminar  las  sentencias  REM.  En  cias.  Aqui  se  ha  utilizado  otra  técnica 

— No  hay  secuencias  sin  salida.  este  caso,  la  alternativa  es  incluir  los  para  desarrollar  el  programa. 

comentarios  en  forma  de  documenta-  3.  Los  segmentos  o  módulos  del  pro- 

Codificación  ción  externa,  escribiéndola  sobre  el  lis-  grama  están  definidos  con  claridad. 

tado  del  programa.  Los  comentarios  del  Esto  es  importante  cuando  es  desea- 
Una  vez  definidos  los  objetivos  y  pre-  programa  que  aparecen  en  este  artículo  ble  utilizar  estos  módulos  en  programas 

parado  el  organigrama  que  cubre  dichos  son  breves  ya  que  el  VIC  utilizado  no  futuros.  Si  dispones  de  un  amplio  con- 

objetivos,  se  está  en  disposición  de  ten‘a  mucha  memoria.  junto  de  programas  que  puedes  utilizar 

realizar  la  codificación  propiamente  Características  Especiales  en  el  desarrollo  de  otros  nuevos,  obten- 

dicha.  Este  proceso  es  fácil  con  el  mate-  drás  notables  ahorros  de  tiempo.  Los 

rial  que  ya  se  ha  preparado.  Lo  único  Una  vez  terminada  la  codificación,  programas  que  se  codifican  directa- 
que  necesitarás  es  estar  familiarizado  observarás  que  el  programa  tiene  ciertas  mente  no  son  realmente  modulares, 

con  el  juego  de  instrucciones  del  len-  características  que  la  distinguen  de  Esto  dificulta  tanto  el  reconocimiento 

guaje  que  vas  a  utilizar,  y  disponer  de  cualquier  otro  en  el  que  no  se  hayan  de  las  líneas  que  forman  los  segmentos, 

una  tarjeta  de  referencia  del  lenguaje.  realizado  las  dos  primeras  fases.  Entre  como  el  traslado  de  éstos  a  otros 

Cuando  hayas  escrito  algunos  pro-  ellas  están:  programas. 
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¡INCREIBLES  TARJETAS 
PARA  COMMODORES  64  Y  VIC-20 
DE  80  COLUMNAS! 

LA  TARJETA  DE  64K  ES  LA  PERFECTA  COMBINACION  PARA  LA  TARJETA  DE  40/80  COLUMNAS: 

-  Puede  escoger  entre  22/40/80  columnas  y  obtiene  31743  bytes  libres!!' 


El  solware  del  EPROM  de  la  tarieta  le  permite  utilizar  todos  los  comandos  de  ficheros  (OPEN.  CLOSE.  PRINT.  INPUT,  GET.  SAVE 
and  LOAD)  con  Ibs  31232  Bytes  de  Memoria  «oculta»,  lo  que  produce  la  sensación  de  qué  hay  8  cassettes  supe'  rápidos 
conectados  a  su  Vic-20  Imagínese.,  menos  de  1  segundo  para  guardar  28  K!'! 


DISTRIBUIDORES  PARA  TODA  ESPAÑA 


PEDIDOS 


•  Tarjeta  COMMODORE  64 
80  columnas 


DISTRIBUIDORES 
Y  PARTICULARES 


C/Tusset,  8  -  ENTRESUELO  2a 
Teléf.:  218  02  93 
08006  BARCELONA 


•  Tarjeta  VIC-20  40/80  columnas 


•  Tarjeta  VIC-20 
Ampliación  de  memoria 
64  K  -  RAM 

•  Slots  de  expansión 
para  VIC-20  y  64 

de  2  y  5  para  conexión 
de  tarietas 


FERPE  -mOPET  /. P. 


¡ATENCION! 

SOFTWARE  80  COLUMNAS 


AGENDA  80  FMD 

Sin  duda  la  mejor  Agenda  Personal  creada  para  el 
CBM-64.  y  a  80  Columnas 

Opciones:  ALTAS,  CONSULTAS  (pantalla  o  impresora), 
MODIFICAR,  BAJAS,  LISTADOS  (pantalla  o  impresora), 
ONOMASTICAS.  Esta  última  opción  le  permite  visualizar 
el  calendario  de  un  mes  cualquiera  de  un  año  cualquiera. 
Le  señala  las  fechas  en  que  hay  alguna  onomástica  y  a 
continuación  le  indica  el  tipo  y  de  quién  es  la  onomástica. 
Al  inicio  del  programa  le  indica  si  existe  alguna  onomás¬ 
tica  en  el  día  de  hoy.  Consultas  por:  Número,  nombre, 
calle,  población,  Dto.  postal,  santo,  y  cumpleaños. 


BIBLIO  80  FMD 

Archive  su  biblioteca  y  consulte  luego  por  5  conceptos 
diferentes:  Número,  Título,  Autor,  Clasificación  y  Grupo. 
Opciones  Menú:  ALTAS,  CONSULTAS  (pantalla  o  impre¬ 
sora),  MODIFICAR.  BAJAS,  LISTADOS  (pantalla  o  impre¬ 
sora).  ¿Quiere  saber  los  libros  que  tiene  que  tratan  de 
Economía?  Simplemente  utilice  la  opción  CONSULTAS  y 
obtendrá  un  listado  de  sus  libros  de  Economía 


DISCO  80  FMD 

Archive  su  Discoteca  y  consulte  luego  por  5  conceptos 
diferentes:  Número,  Título,  Cantante/grupo,  Editora  y  Cla¬ 
sificación.  Las  fichas  le  permiten  especificar  las  canciones 
contenidas  en  el  disco.  La  opción  CONSULTAS,  le  permite 
conocer  todos  los  discos  que  tienen  un  concepto  en 
común.  Por  ejemplo,  discos  de  los  Beatles. 

REST  80  FMD 

Sólo  para  gastrónomos  Consulta  los  Restaurantes  por 
Número.  Nombre,  Población,  Precio  por  Persona,  Platos 
recomendados.  Clasificación  y  Cocina.  Las  opciones  del 
Menú  son:  ALTAS,  CONSULTAS  (pantalla  o  impresora). 
MODIFICAR,  BAJAS,  LISTADOS  (pantalla  o  impresora). 
Ten  tu  propia  guía  de  los  restaurantes  que  has  visitado. 

CINE  80  FMD 

Sólo  para  cinéfilos.  Ten  tu  propio  archivo  de  películas  y 
consulta  por  Número,  Director,  Productor,  Fotografía, 
Música,  Actores,  Actrices.  Clasificación  y  Grupo.  Opcio¬ 
nes  del  Menú:  ALTAS,  CONSULTAS  (pantalla  o  impre¬ 
sora).  MODIFICAR,  BAJAS.  LISTADOS  (pantalla  o 
impresora). 


PROXIMAMENTE  ESTOS  MISMOS  PROGRAMAS  PARA  CASSETTE  Y  40  COLUMNAS. 


4.  Finalmente,  la  fase  restante  (depu¬ 
ración)  es  mucho  más  simple. 

Depuración 


habilidad  y  experiencia  en  técnicas  de 
depuración  para  resolver  los  problemas 
que  puedan  aparecer. 

Las  dos  técnicas  de  depuración  más 
útiles  son  el  comando  STOP  y  la  ins¬ 
trucción  GOSUB. 

Para  comprobar  si  se  está  ejecutando 
un  segmento  determinado  o  si  los  valo¬ 
res  de  las  variables  son  ios  adecuados,  se 
pueden  colocar  temporalmente  coman¬ 
dos  STOP  a  lo  largo  del  programa. 
Cuando  el  programa  se  detiene  a  causa 
de  un  comando  STOP  es  posible  exami¬ 
nar  el  contenido  de  las  variables,  o 
cambiar  sus  valores  utilizando  coman¬ 
dos  directos,  y  luego  continuar  la  ejecu¬ 
ción  del  programa.  Esta  ejecución  no 
podrá  continuar  si  se  cambia  una  linea, 
o  se  añaden  o  borran  lineas  después  de 
la  parada. 

Cuando  conviene  ejecutar  una  subru¬ 
tina  GOSUB  para  comprobar  su  fun¬ 
cionamiento.  puede  ser  difícil  o  tedioso 
conseguir  que  el  programa  la  llame. 
Este  serta  el  caso  si  se  intentara  depurar 
la  subrutina  REWARD  en  el  programa 
ejemplo.  La  siguiente  inserción  tempo¬ 
ral  en  el  programa  evitaría  ésto: 


1  M=l:  F%=1:  N%=4:  YES=20:NO=0 

2  GOSUB  5000 

3  STOP 

Ahora  se  puede  ejecutar  este  pro¬ 
grama  temporalmente  para  comprobar 
que  la  subrutina  funciona  adecuada¬ 
mente.  Las  condiciones  de  la  linea  I 
pueden  cambiarse  fácilmente  para  veri¬ 
ficar  la  subrutina  ante  distintas  hipótesis. 

Cuando  se  hayan  realizado  todos 
estos  pasos  y  tu  programa  esté  acabado, 
le  hayas  puesto  un  nombre  y  lo  hayas 
salvado,  debes  identificar  la  documen¬ 
tación  producida  durante  el  desarrollo 
con  el  nombre  del  programa  y  archi¬ 
varla  para  su  uso  posterior. 

¿Agobiado? 


Un  programador  sin  experiencia  puede 
sentirse  agobiado  al  pensar  que  debe 
hacer  todo  lo  que  hemos  explicado.  Sin 
embargo,  es  difícil  explicar  con  palabras 
las  ventajas  que  reporta  este  método  de 
programación.  Cuando  se  escriben  los 
programas  de  esta  forma,  son  mejores  y 
se  hacen  más  rápidamente.  Sólo  la  expe¬ 
riencia  te  convencerá  de  todo  ésto.  • 


La  depuración  del  programa  es  senci¬ 
lla  si  se  siguen  los  pasos  que  hemos  des- 

En  primer  lugar,  gracias  a  la  labor 
previa  de  planificación,  no  habrá  muchos 
fallos,  si  bien  es  cierto  que  la  planifica¬ 
ción  no  puede  evitar  errores  mecanogra¬ 
fíeos. 

En  segundo  lugar,  la  estructura 
lógica,  la  representación  gráfica  de 
dicha  estructura  y  la  lista  de  variables 
propician  el  seguimiento  del  flujo  del 
programa  y  la  detección  de  cualquier 
problema.  Tendrás  que  utilizar  toda  tu 


C-64 

3  REM  MATEMATICAS  C-64 

10  VES=0  ■  NÜ=0 :  F>:=0 ' NX=0 

20  PR I NTCHRí  < 1 47  3 " C  2SPC  3 MATEMAT I  CAS  [ 2SPC ] 

"  PR I NT : PR I NT : REM  OPCIONES 

30  PRINT" 1 . [SPC3ELI JECSPC3UNACSPC3ÜP 

ERACIQNCSPC3  PULSANDO  " 

40  PR I NTTAB  <  4  3 " S  C  SPC  3 PARA  t  SPC  3  SUMAR " 

50  PR I NTTAB  <  4  3 " R  C  SPC  3PARA  C  SPC  3REST AR 

60  PRINTTAB<43"MCSPC]PARA[SPC]MULTIP 
LICAR" 

70  PRINTTAB<43“DCSPC]PARR[SPC]BIVIDI 
R" 

00  PRINT "2. CSPC3ELI JECSPC3NIVELCSPC3 
BECSPC3DIFICULTAB£SPC3PULSAND0  " 

SO  PRINTTAB<4  > "F1 CSPC3-CSPC3 FACIL" 

100  PRINTTAB<43"F3[SPC3-[SPC3NÚ[SPC3 
TANCSPC3FACIL" 

110  PRINTTñB(4) "F5[ SPC] -CSPC 3 DIFICIL 

I  120  PRINTTRB<4 VF7CSPC3-CSPC3MUYCSPC3 
DIFICIL" 

130  PRINT"3. CSPC3PULSAtSPC3F6£SPC3  <D 
ESPUESC 2SPC 3  DE [ SPC  3CADAC SPC  3  PROBLEMA 
3  C  SPC  3  PAR  A  C  SPC  3  C  AM  B I  AR  [  SPC  3  DE  C  SPC  3  ÚP 
ER ACION" 

140  PR I NT " 4 . [ SPC  3 PULSA CSPC3F4CSPC3PA 
RA I SPC  3  PONER  C  SPC  3  A  C  SPC  3  CERO [ SPC  3  EL  C  8SPC  3 
MARCADOR" 

150  PR I NT ” 5 . [ SPC  3  L A [ SPC 3BARRACSPC3DE 
[ SPC  3  ESPAC I OS  í SPC  3  PARA  C  SPC  3  COMENZAR " 

200  IFF3O0THENGOSUB2000 

210  IFN;O0THENGÜSUB3000 

220  GETAJ  I FA$= " " THEN220 

230  I F Ai = " S " THENFX= 1 ■ YES=0 : NÚ=0 : GOSU 

B2Ó00 • GOTO220 

240  I FA<= " R "  THENFX.=2  YES=0  NÜ=0 :  GOSU 
B2O0Ú : GOTÜ220 

250  IFA$="M"THENF3í=3  VES=0  NÜ=0  GOSU 
B2000 • G0T0220 


260  I  FA4=  "  D  "  THENFJ<=4  ■  YES=0  •  Hú=0  •  GOSU 
B2000  GOTO220 

270  IFAÍ=CHRt<133>THENNX=l : VES=0  NO» 
0  GOSUB3000 • GOTO220 
280  IFAí=CHRí(134)THENN7.=2  VES=0  N0= 
0  - GOSUB300O ■ G0T022Ü 

1  290  IFA4=CHR$U353THENN?Í=«3  YES=0:Nú- 

0  GGSUB30Ú0  Ú0T0220 
300  IFAí-CHR«  13¿3THEHNZ=4  YES=0 :  N0=» 
0 • GOSUB300O  GOTO220 
310  IFAi=CHR*<1393THEN20 
320  IFAi=CHR$< 138>THENVES=0 • NO=0 : GOT 
0220 

330  I FA$*CHR$  < 32 3 THEN350 
340  GQTO220 

|  350  IFFX.=0ÜRNX=0THEN220 

360  F0RI  =  1T05  RN<I3  =  INT<.RND<X3#10TNX 
3 : IFF*=4THENRN< I 3=RN< I 3  +  1 
370  NEXT 

I  380  ÜNF;íGOSUB500,  700,90o,  1100 
390  G0SUB4000 
480  GOSUB5000 
410  PRINT" [HOM3C15CRSRD3" 

420  PRINT" PULSA [ SPC 3 ESPAC 1 0 C SPC 3PARA 
C SPC 30TR0 [ SPC 3 PROBLEMA " 

430  GETAi  IFAJ=""THEN430 
440  I F A<=CHR J <  32 ) THEN360 
450  IFAí=CHR$( 1393THEN20 
460  IFAí=CHRí ( 138)THENVES=0 ; NÜ=0 
1  470  GOTQ430 

500  RES=0 : REM  SUMAR 

510  PRINTCHRi'.  1473  : PRINT"SUMAR"  •  PRIN 

T“ - “ 

520  F0RI-1T0N* 

530  RES=RES+RN< I 3 

540  PRINTSPC<63RIGHT<< " C6SPC 3“ +STRt< 
RN(I3  3,N7.+23 
550  NEXT 

I  560  RES=RE3+RN<N*+13 

570  PRINT  SPC <  6  3  R I GHT<  < " C  4SPC  3 + " +S  TR< 
(RN(NJ.+  1  j  3 ,  N3Í+23 

580  PRINTSPC<83RIGHT<< " - ",NZ3 

590  RETURN 

700  IFRN< 1 3>RN<23THEN720  REM  RESTAR 
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¡Hazte  socio  del  Club  de  Soft  de  España! 
Tendrás  multitud  de  ventajas... 

—  Recibirás  puntual  información  de  las  novedades 
de  soft  que  haya  en  el  mercado. 

Te  enviaremos  un  catálogo  bimensual  que  incluye 
más  de  200  programas  para  Commodore  64  y  Spec- 
trum. 

—  Podrás  adquirir  programás  con  un  30%  de  descuen¬ 
to.  por  ser  miembro  del  CLUB  DE  SOFT  DE  ESPA¬ 
ÑA. 

—  Obtendrás  descuentos  de  hasta  un  20%  sobre 
hardware. 


Si  ya  eres  socio  del  Club  y  deseas  acogerte  a  este 
regalo,  puedes  hacerlo  contra  reembolso  de 
1.000  ptas.,  pero  no  olvides  decirnos  tu  numero 
de  socio. _ 


¿COMO  PUEDES  HACERTE  SOCIO  DEL  CLUB  DE 
SOFT  DE  ESPAÑA? 


—  Sólo  tendrás  que  abonar  1.000  Ptas.  como  cuota  UNICA  de  ins¬ 
cripción. 

—  Como  regalo  de  bienvenida  a  nuestro  CLUB  de  SOFT  de  ESPAÑA 
podrás  elegir  entre  dos  programas: 

AJEDREZ  STARSHIP  ENTERPRISE 

SOLO  FLIGHT  SLIPPERY  SID 

para  CBM-64  para  SPRECTRUM 

Te  enviaremos  el  programa  elegido  completamente  GRATIS,  junto 
con  la  confirmación  de  tu  pertenencia  al  CLUB  de  SOFT  de  ESPAÑA 


DIFUSION  POR  AMISTAD 

Habla  a  tus  amigos  de  las  enormes  ventajas  que  supone 
pertenecer  al  CLUB  DE  SOFT  DE  ESPAÑA.  Si  junto  con 
tu  inscripción  se  inscriben  dos  amigos  tuyos  por  tu 
recomendación,  te  regalamos  un  programa  de  juegos 


|Effl99935SB33S  t 


CUPON  DE  INSCRIPCION 
AL  CLUB  DE  SOFT  DE  ESPAÑA 

Eraso,  12  -  Tel.  24610  94  -  28028-MAPRID 


IB  DE  SOFT  DE  ESPAÑA  Ruego  mi 


DIFUSION  POR  AMISTAD 


Programa  de  regalo  de  bienvenida _ 

DIFUSION  POR  AMISTAD 

NOMBRE  de  un  amigo _ 
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MusíCalc 

El  Sistema  Creativo  de  Música 

(para  personas  aún  sin  conocimientos  musicales) 


TABLA  GRÁFICA 
para  Commodore  64 


¡Que  suene  la  música! 

Convierta  a  su  Commodore  64  en  un  sofisti¬ 
cado  instrumento  musical,  y  él  le  convertirá  en 
un  compositor,  director  y  músico. 

Con  MUSICALC,  el  sistema  de  música  crea¬ 
tiva,  toda  la  familia  es  capaz  de  componer  y 
tocar  música  de  una  manera  instantánea. 

¡MUSICALC  le  divierte  jugando  con  la 
música! 

Obtenga  copias  en  papel  de  sus  propias  par¬ 
tituras,  utilize  más  de  30  escalas  distintas,  co¬ 
néctelo  a  su  equipo  de  alta  fidelidad  y  a  una 
caja  de  ritmos,  y  muchas,  muchas  posibilida¬ 
des  más. 


Entra  en  el  apa¬ 
sionante  mundo 
del  arte  de 
ordenador. 
¡Fácil  de  usar! 


Se  entrega  junto 
con  soft  en  cartu¬ 
cho.  Gráficos  en 
alta  resolución. 
16  colores.  2  pá¬ 
ginas  de  dibujo. 
Zoom,  menús  de  diseño,  archivo  en  cinta  o  dis¬ 
co,  posibilidad  de  incluir  texto.  Permite  printar  los 
gráficos  mediante  soft  adicional. 


Durabilidad  y  buen  precio 

Compatible  con  C-64,  Atari,  Spectravideo,  Sinclair  Spec- 
trum  (con  interface)  etc... 


MONITOR  DE  COLOR 

14”  Profesional 


•  Pantalla  de  gran  resolución 

•  Sonido  incorporado 

•  Entrada  señal  video  compuesta  o  RGB 

•  Peana  orientable 

•  Gran  resistencia  y  durabilidad 


Adaptable  a  todos  los  ordenadores. 

(Los  microordenadores  que  sólo  tienen  salida  RF  son  compatibles  me¬ 
diante  una  sencilla  conexión) 


_ _ — — 


Distribuidor  exclusivo 

i  IDEALOGIC 

Gran  Via  Cartas  III,  97  K.  06028  BARCELONA 
Tels:  330  33  08  -  330  33  62.  Tétex:  50156  JONC 


Le  presentamos  a  SPINNAKER. 

Para  que  también  nuestros  hijos  aprendan  jugando  con  el  ordenador. 


Muchos  padres  ya  conocen  que  el  ordenador  doméstico  pue¬ 
de  servir  para  que  nuestros  hijos  jueguen  y  pasen  largos  ratos  de 
ocia  Con  SPINNAKER  los  juegos  de  ordenador  además  sir¬ 
ven  para  aprender 

SPINNAKER  es  la  firma  líder  mundial  en  juegos  educativos  para 
ordenador.  Ahora  llega  a  nuestro  país  para  que  también  nuestros 
hijos  aprendan  jugando  con  el  ordenador. 

Nuestros  juegos  están  llenos  de  emoción,  entretenimiento  co¬ 
lor,  música...  Pero  además  poseen  un  alto  grado  de  valor  educati¬ 
va  ayudando  a  los  niños  a  que  desarrollen  sus  habilidades  y  apren¬ 
dan  de  una  divertida  manera.  Aprovechando  al  máximo  las  nuevas 
posibilidades  que  nos  ofrece  el  mundo  de  las  computadoras. 

En  su  elaboración  han  intervenido  especialistas  en  la  educación, 
la  didáctica,  la  música,  los  gráficos  y  la  programación,  que  han  rea¬ 


lizado  un  cuidado  producto  especialmente  pensado  para  la  edu¬ 
cación. 

Estos  son  los  motivos  por  los  que  miles  de  niños  de  todo  el 
mundo  son  verdaderos  fans  de  SPINNAKER.  Y  sus  padres  también. 

Si  Ud.  realmente  desea  que  su  ordenador  familiar  sea  una  ayu¬ 
da  útil  para  el  futuro  de  sus  hijos,  recuerde  este  nombre:  SPIN¬ 
NAKER:  Una  divertida  familia  de  juegos  educativos. 

!  vm**  «■;'  ****«> 


PARA  APPLE  D,  Commodore  64  y  Sinclair  Spectmm 
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SPINNAKER  SOFT  COR  CAMBRIDGE.  MASS.  USA 


Por  Jordi  SASTRE 

Rutinas  Basic  (3) 

Paginación 


EJEMPLO: 

Hace  dos  meses,  en  el  primer  artículo 
de  esta  serie,  cuando  hablábamos  de  la 
formatación  numérica,  puse  un  ejemplo 
de  formatación  utilizando  un  programa 
que  imprimía  diez  lineas  con  tres 
columnas.  Reproduzco  aquí  el  mismo 
programa,  pero  incluyendo  cabecera  y 
rutina  de  paginación. 

Es  obvio  que  cuanto  más  estrecho  sea 
el  listado,  más  cortos  deberán  ser  los 
contenidos  de  las  variables  TES  y  TOS. 
Para  comprobar  eficazmente  el  buen 
funcionamiento  de  la  rutina,  obligando 
a  imprimir  varias  hojas,  basta  con 
modificar  la  línea  210  del  programa, 
poniendo  el  bucle  FOR...NEXT  a  150, 
por  ejemplo  (210  FOR  N=1  TO  150), 
para  llenar  dos  páginas  y  media.  Asi¬ 
mismo  también  conviene  cambiar  la 
linea  130  para  que  en  lugar  de  elevar  a  la 
séptima  potencia  lo  haga  sólo  a  la 
cuarta  (n  f  4),  puesto  que  150  I  7= 
1.70859375E+I5,  lo  cual  excede  de  la 
precisión  de  la  CPU. 


El  tipo  más  frecuente  de  listado  que 
se  realiza  con  un  ordenador  es  el 
típico  listado  lineal,  que  se  compo¬ 
ne  de  una  cabecera  y  un  cuerpo.  El  cuerpo 
está  formado  por  un  número  determi¬ 
nado  de  líneas  (siempre  las  mismas  en 
cada  página),  en  que  cada  linca  corres¬ 
ponde  a  un  registro.  Todas  las  líneas 
tienen  la  misma  estructura,  aunque  sus 
contenidos  son  diferentes  por  pertene¬ 
cer  a  diferentes  registros. 

Cuando  se  programan  estos  listados 
hay  dos  aspectos  que  siempre  son  engo¬ 
rrosos:  el  primero  es  calcular,  formatear 
y  alinear  adecuadamente  las  columnas 
del  mismo.  El  segundo  es  implementar 
un  contador  de  líneas  para  paginar  en  el 
momento  preciso  (ni  una  línea  antes  ni 
una  después). 

La  rutina  de  PAGINACION  que  pre¬ 
sento  en  este  artículo  cumple  las 
siguientes  funciones:  cada  vez  que  se 
llama  (GOSUB  27100)  incrementa  un 
contador  de  lineas  (CL).  Si  este  conta¬ 
dor  no  llega  a  63  no  hace  nada  más.  En 
cambio,  cuando  se  llega  a  sobrepasar  la 
linca  63  imprime  una  serie  de  interlineas 
hasta  llegar  a  las  66  que  se  supone  tiene 
la  hoja  de  listado,  incrementa  el  conta¬ 
dor  de  páginas  (CP)  y  confecciona  la 
cabecera  de  listado  para  continuar  lis¬ 
tando. 

De  esta  manera,  el  programador 
puede  olvidarse  de  la  paginación.  Sólo 
debe  preocuparse  de  efectuar  el  GOSUB 
después  de  imprimir  cada  línea,  y  la 
rutina  hará  todo  lo  demás. 

La  rutina  de  paginación  es  corta,  pero 
debe  manejarse  con  cuidado,  pues 
maneja  bastantes  variables: 

Yl$,  Zl$,  TES  y  TFS  son  cuatro 
variables  que  pueden  asignarse  una  vez 
durante  el  programa  (por  ejemplo  al 
principio  del  mismo)  y  después  ya  no 
preocuparse  de  ellas. 

Y1S  debe  contener  el  carácter  de 


expansión  de  caracteres  de  la  impresora 
(CHR$(1)  en  impresoras  Commodore). 
Si  la  impresora  no  posee  modo  expan¬ 
dido,  o  no  interesa  hacerlo,  puede  que¬ 
dar  como  cadena  nula  (Yl$=“  “). 

Z1S  debe  contener  80  guiones  que  se 
utilizarán  para  trazar  las  líneas  horizon¬ 
tales  (si  se  desea  puede  utilizarse  otro 
carácter). 

TES  puede  contener  (no  pasa  nada  si 
es  una  cadena  nula)  el  nombre  de  la 
empresa  que  utiliza  la  programación,  o 
el  título  del  programa,  o  cualquier  texto 
común  a  toda  la  programación. 

TFS  puede  contener  la  fecha  del  día 
(unos  8  caracteres,  por  ejemplo:  DD. 
MM.  AA.). 

Estas  variables  son  las  comunes  a 
todos  los  listados  que  confeccione  un 
programa.  Las  variables  particulares  de 
cada  listado,  que  debe  asignarse  antes 
de  la  primera  llamada  a  la  rutina,  son 
las  siguientes: 

TOS  debe  contener  el  titulo  del  listado 
(máximo  40  caracteres). 

T1S  es  la  primera  linea  de  cabecera. 

T2S  es  la  segunda  línea  de  cabecera  (si 
sólo  hay  una  T2$=“  “). 

También  antes  de  la  primera  llamada 
a  la  rutina  deben  inicializarse  los  conta¬ 
dores  y  forzar  una  primera 
impresión  de  la  cabecera. 

Ello  se  consigue  después 
de  asignar  TOS,  Tl$  y 
T2S,  ejecutando  lo  si¬ 
guiente: 

CL=66:  CP=0: 

GOSUI 
27100 


Explicación  de  la  rutina 

Veamos  ahora  cómo  trabaja  la  rutina, 
línea  a  línea: 

27105:  Cálculo  del  ancho  del  listado, 
definido  por  la  longitud  de  T1S 

27110:  Incrementa  contador  de  lineas. 
Si  no  llega  a  63  vuelve  a  la  rutina. 

27120:  Imprime  las  interlineas  nece¬ 
sarias  para  llegar  al  principio  de  la 
siguiente  página. 

27130:  Incrementa  el  contador  de 
páginas. 

27135  y  27138:  Imprime  TES,  la  fecha 
(TFS)  y  el  número  de  página  (CP). 

27140  y  27145:  Imprime  el  título  del 
listado  centrado,  con  carácter  expan¬ 
dido  si  Y1S  está  asignado  o  con  espacios 
en  blanco  intercalados  si  no  lo  está. 

27150:  Imprime  la  primera  linea  de 
cabecera  (T1S)  si  está  asignada. 

27160:  Imprime  la  segunda  linea  de 
cabecera  (T2S)  si  está  asignada. 

27170:  Imprime  una  línea  horizontal 
como  fin  de  cabecera  y  retorna. 

Observaciones 

Esta  rutina  trabaja  de  un  modo  muy 
peculiar,  por  lo  que  su  uso  sofisticado 
puede  re¬ 
querir  cierta 
práctica.  No 
obstante,  hay  al¬ 
gunos  puntos  que 
t  pueden  comentar 
de  antemano. 

Los  listados  no  han  de 
ser  forzosamente  de  80  ó 
132  columnas,  sino  que  su 
ancho  es  variable.  La  rutina 
toma  como  ancho  la  longitud  de 
la  cadena  Tl$. 

Si  el  listado  sólo  tiene  una  linea  de 
cabecera,  la  variable  T2$  debe  dejarse 
como  nula:  T2$=“  “. 
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monitor 
TM  01 


Monitor  de  >«  £n3¡£ 

vergente  de  color. 

Señales  de  entrada  seleccionaba  mediante 
¡nterrupto^  a  l  voltio  p-p 

_ YUV  lineal 

T  rañsfor  rnable  'en  pantalla  verde.  Alta 
resolución  (585  X  436) 

P.V.P.  59.500  ptas. 


monitor 
TM  80 


Monitor  de  12  pulgadas  fósforo  verde  - 

p.  31,  antirreüexivo.  d 

Alta  resolución,  900  lineas  en  centro  di 
pantalla. 

P.V.P.  25.000  Ptas.  [ 


TATUNG 


I* - — -  -  -  s&r*-'"  ,an,° d0” 

A  «-  íSPJSSinS  Oric,  APP'«  >1  >  lle  <c0"  C0,um0a 

Commodore,  Atari  800,  RGB^de  coloré  Positrón  P000  y  Sinclair  QL. 


Diseñado  y  producido  por 


TATUNG.  UK  (REINO  UNIDO) 


Importador  «elusivo  para  España. 
Gran  Vía  Carlos  III.  ó'6'6'’ 


Teléfono  330  96  SI 
Télex  52220  ARTRA 


27 105  V*LEN(  T 1» )+l 

27110  CL-CL+1 = 1 FCL<63THENRETURN 

27120  1  FCLC67THENF0RX*CL+ 1 T066  F'RINT 

#4  NEXT 

27130  CP=CP+1 

27135  PR I NT#4  PR I NT#4 , TE4SPC  < Y-20-LE 
N<TEÍ>)TF</  IFCPTHENPRINT44, "C2SPCJP 
AGI NA “CP; 

27130  PRINT44  PRINT#4 

27140  XI  ■  1NT<  <. V-LEN<  T0*  > *2 >/¿ >  IFY1* 

O" " THENPR I NT#4 , SPC < X 1 >' Y 1 * TÜi  GÜT027 

150 

27145  PRINT#4>  SPCCX1 ) .  FÜRX=>1TÚLEN(T 


ái>  PRINT#4, 1110*00*, X,  lVCSPCr,  NE 
XT : PRINT#4 

27150  PR I NT#4 ■ CL=ó ; I FT 1 SO “ " THEHPR 1 N 
T#4,T1*:CL»CL+1 

27160  I FT2SO “ “THENPR I NT#4 , T2* • CL=»CL 
+  1 

27170  PRINT#4,LEFT*(2IS+ZIS,V-1>  RET 


EJEMPLO  DE  PAGINACION  +  FORMflT ACION 


3  2. 137 

4  16.384 

5  78. 125 

6  279.936 

7  323.543 

8  2.097.152 

9  4.732.969 

10  10.000.000 

11  13.487.171 

12  35.831.808 

13  62.748.517 

14  105.413.504 

15  170.853.375 

16  263.435.456 

17  410.338.674 

18  612.220.033 

19  893.871.739 


ELECTROAFICION  COMPUTER 

C/  VILLARROEL,  104  -  08011  BARCELONA  ■  TEL.:  253  76  00  -  09 
C/  GRAN  VIA  CORTS  CATALANES,  559  -  08011  BARCELONA  -  TEL:  254  23  19 


I  celado  DK  TRON1C 
LAPIZ  óptico 
Amplificador  Sonido 
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Por  Pere  MASA  TS 


lina  serie 
de  utilidades 
y  trucos 


Es  muy  frecuente  — incluso  entre  programadores 
profesionales —  cometer  errores  al  entrar  un 
programa,  especialmente  cuando  se  trata 
de  sentencias  data.  A  continuación 
damos  algunas  ideas  de  cómo 
encontrar  estos  errores. 


Las  sentencias  DATA  son  muy 
prácticas  cuando  se  trata  de 
almacenar  rutinas  en  código  má¬ 
quina  en  la  memoria  del  ordenador, 
para  ejecutarlas  luego  mediante  SYS  y 
trabajar  a  velocidades  razonables  en  par¬ 
tes  críticas  del  programa.  Pero  es  muy 
fácil  cometer  un  error  en  algo  tan  abs¬ 
tracto  como  un  número  y  la  mayor 
parte  de  los  principiantes  odian  a 
muerte  esta  manera  de  introducir  datos. 
Y  muchos  autores  cargan  con  el  sambe¬ 
nito  de  que  sus  programas  — listados  en 
una  revista —  no  funcionan.  Vamos  a 
ver  cómo  podemos  solucionarlo. 

Entre  en  su  ordenador  el  programa 
siguiente: 

10  SC=  1024:  REM  PARA  EL  VIC 
UTILICE  7680  SIN  EXPANSION 
O  4096  CON  EXPANSION. 

20  PRINT"  [CLR/HOME]**** . 

30  FOR  J  =  SC  TO  SC  +  5 
40  READ  K:  POKE  J.K 
50  NEXTJ 

60  REM  (MAS  LINEAS  DE  PRO¬ 
GRAMA) 

500  DATA  20,5,19,20 
510  DATA  999 

En  este  ejemplo  se  utiliza  la  conocida 
técnica  de  hacer  un  READ  seguido  de 
un  POKE  en  un  bucle  FOR/NEXT 
para  escribir  TEST  en  la  pantalla.  El 
caso  es  que  si  hacemos  un  RUN  de  este 
programa  nos  encontramos  con  un 
7ILLEGAL  QUANTITY  ERROR  IN 
40,  pero  en  la  linea  40  no  hay  ningún 
error.  Veamos:  si  hacemos  PRINT 


J:PRINT  K,  veremos  que  la  variable  K 
está  fuera  del  valor  de  0  a  255  que  deben 
tener  los  valores  que  se  colocan 
mediante  POKE  en  posiciones  de 
memoria,  luego  /¡lectivamente  hay  un 
error  en  la  linea  40.  Es  evidente  que  el 
error  está  realmente  en  la  linea  510  y 
consiste  en  el  valor  999.  Buscar  a  través 
de  una  lista  de  DATAS  el  valor  inco¬ 
rrecto  es  — además  de  un  verdadero 
fastidio —  algo  sólo  relativamente  fia¬ 
ble,  pues  nos  hemos  encontrado  con 
frecuencia  que  cometemos  el  mismo 
error  al  revisar  el  programa  que  se 
cometió  al  entrarlo.  Para  corregir  esto 
se  puede  recurrir  a  la  ayuda  de  otra  per¬ 
sona  que  — con  “nuevos  ojos” —  nos 
ayude  a  repasar  nuestro  programa  y  el 
listado.  Pero  existe  una  manera  muy 
fácil  de  encontrar  el  DATA  incorrecto. 
En  las  posiciones  63  y  64  (VIC-20  y  C- 
64)  se  almacena  el  número  de  linea  del 
DATA  que  se  ha  leído  en  último  lugar, 
así  si  después  del  7ILLEGAL  QUAN- 
TITY  ERROR  hacemos  (en  modo 
directo): 

PRINT  PEEK(63)+PEEK(64)*256 
obtendremos  510  que  es  la  línea  donde 
REALMENTE  está  el  error. 

Más  sobre  datas 


De  hecho  es  muy  práctico  incluir  en  el 
programa  grandes  cantidades  de  datos 
que  el  mismo  necesita  para  su  funciona¬ 
miento,  y  muchas  veces  para  mejorar  la 
presentación  se  recurre  a  determinadas 


cadenas 
dan 

como  sentencias 
DATA  para  be¬ 
neficiarse  de  las 
facilidades  que 
proporciona  el 
editor  de  pan¬ 
talla  de  los 
equipos  COM- 
MODORE.  Lo 
que  es  una  lata  en  la 
utilización  de  DATAS 
programa  es  el  hecho  de 
que  deben  leerse  en  forma 
secuencia!  sin  poder  retro- 
i  ceder  a  DATAS  ante¬ 
riores  a  menos  que  se 
utilice  RESTORE  para 
volver  al  principio.  RUN, 
y  RESTORE  sitúan  el 
puntero  de  lectura  de  DATAS 
(DATA  read  pointer,  62/63  en 
los  CBM.  65/66  en  VIC-20  y  C-64) 
apuntando  al  inicio  de  BASIC.  Cuando 
se  efectúa  un  comando  READ  el  pun¬ 
tero  va  explorando  el  texto  del  pro¬ 
grama  en  busca  de  una  sentencia 
DATA,  si  no  la  encuentra  cuando  ha 
llegado  al  fin  del  programa  se  genera  un 

?OUT  OF  DATA 

Por  otra  parte  existe  otro  puntero 
(direcciones  119/120  en  los  equipos 
CBM  y  122/123  en  el  VIC-20/C-64)  que 
le  indica  al  intérprete  dónde  está  el 
código  que  se  está  interpretando  en  este 
momento.  Si  el  valor  de  este  puntero  se 
transfiere  al  puntero  de  lectura  de 
DATAS  se  podrá  forzar  la  lectura  de 
DATAS  de  forma  no  sccucncial.  Por 
ejemplo: 

10  DATA  PRIMERO,  SEGUNDO 
TERCERO 
20  DATA  CUARTO 
30  READ  A$.  B$ 

40  POKE65,  PEEKG22):  POKE66, 
PEEK(  123) 

50  READ  A,  B 
60  PR1NTA$,B$„A,B 
70  DATA  1, 2,3.4 
80  END 

El  comando  READ  de  la  linea  30  lee 
en  AS  y  BS  los  DATAS  PRIMERO  y 
SEGUNDO  dejando  el  puntero  en 
TERCERO.  La  linea  40  mueve  el  pun¬ 
tero  a  través  de  las  lineas  10,  20  y  30  a 
un  lugar  de  la  misma  linea  40,  como  en 
esta  linea  no  hay  una  sentencia  DATA 
el  próximo  READ  se  efectuará  (linca 
50)  sobre  la  linea  70. 
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En  resumen  tenemos  un  sistema  de 
leer  los  DATAS  en  el  orden  que 
precisemos. 

Lectura  del  canal  de  error 
del  disco  en  modo  directo 


Trabajando  con  la  unidad  de  disco  en 
un  VIC-20  o  un  COMMODORE  64 
suele  ser  especialmente  enojosa  la  situa¬ 
ción  siguiente: 

Acabamos  de  depurar  el  error  nú¬ 
mero...  (ya  hemos  perdido  la  cuenta)  de 
un  programa  largo  y  del  que  como  es 
muy  típico  no  tenemos  una  copia  de 
seguridad  actualizada,  resoplamos  pro¬ 
fundamente  con  alivio  por  haber  termi¬ 
nado  un  trabajo  que  esperábamos  nos 
tomara  media  hora  y  con  el  que  en 
realidad  llevamos  cinco  horas  y  45 
minutos  (esto  si  lo  recordamos).  Teclea¬ 
mos  SAVE  “EL  RICO  PROGRAMA".8 
y  RETURN  y...  El  bendito  1541  en  uno 
de  sus  inefables  rasgos  de  humor  nos 
guiña  el  LED  rojo  y  se  queda  tan  ancho. 
Después  de  haber  superado  el  conato  de 


infarto  y  de  buscar  infructuosamente  un 
hacha  para  tomar  cumplida  venganza 
(hemos  tenido  la  precaución  de  escon¬ 
derla  en  previsión  de  situciones  como 
esta)  analizamos  fríamente  la  situación; 
tenemos  un  (valioso  y  único)  programa 
en  memoria,  no  sabemos  qué  error  se  ha 
detectado  durante  la  operación  de 
SAVE:  puede  ser  un  inocente  WRITE 
PROTECT  o  un  terrible  READ  ERROR. 
La  solución  consiste  en  leer  el  canal  de 
error  del  disco  en  MODO  DIRECTO, 
para  ello  teclee  lo  siguiente: 

CLOSE  1:  OPEN 1 ,8, 1 5: FORI=OTO30: 
SYS(43906)#1,  A$:?AS;:  IFST= 
OTHENNEXTI. 

Y  a  continuación  RETURN  (la  tecla), 
inmediatamente  y  en  pantalla  nos  apa¬ 
recerá  el  número,  mensaje,  pista  y  sector 
del  error  ocurrido,  lo  que  no  remediará 
totalmente  nuestros  sufrimientos  pero 
los  aliviará  bastante.  Para  aquellos 
usuarios  de  ordenadores  CBM  que  no 
tengan  BASIC  4.0  en  sus  equipos  el 
procedimiento  es  el  mismo  excepto  que 
el  SYS  es  SYS(51844). 


Una  utilidad  muy  interesante 


Es  una  buena  precaución  — si  quere¬ 
mos  llegar  a  viejos  programando —  gra¬ 
bar  en  disco  los  programas  a  medida 
que  los  vamos  escribiendo  para  prevenir 
fastidiosos  cortes  de  corriente  y  “gra¬ 
cias”  de  nuestros  retoños,  entre  otras 
cosas.  Con  el  programa  que  se  lista  a 
continuación  — cargándolo  antes  de 
empezar  a  programar —  podremos  hacer¬ 
lo  de  forma  cómoda  (que  es  la  única 
forma  de  hacerlo  frecuentemente).  Ade¬ 
más  podremos  hacer  listados  en  la 
impresora  con  el  nombre  del  programa 
y  la  hora  en  que  se  ha  listado  con  lo  que 
será  fácil  saber  cuál  es  la  última  versión. 


PPOoRHNH :  IjriLIOHO 
63000  PG1  =  mUTILICihD"  :E1=CHR1<;  1  ;  : 
PRINT " C 1CLR3 “ 

630 10  PR I NT " C 1 HOME  J C 1 2SPC  3 1 1 RVSÜ 
NJ“;PG* 

6  3O20  GOSUB63290 : PP I NT " 1 1 HOME  3 “ ; 
H1  ; " : " tMS ; "  : " ;RIGHT1 <  T 1 1 ,2 ■ 
o  30 :  ó  PR  I  NT  “  2C R3RU  3 t 1  RVSOt  I3ECIR 
V’SÚF  30RRHRI 1SPC3PRGC  1  sPC  JnHTIOUÚ 
, C 1 SPC  3  GRhEÑR C 1 SPC  3  EL  C 1 SPC  3  HUEVO 

63040  PR I NT " C  2CRSRD  3  C 1 RVSON  3  L  C 1 R 
VSOF  3 1  “STOP 

63050  PR1NT"C2CRSR03C 1RVSON3CC IR 
VSOF  3 ñ HB I  OI  l SPC  3 DE  1 1 SPC  3 HORA ” 
63060  PR I NT n  C 2CRSRD  3  C l RVSOt 1 3  P  C 1 R 
VSOF  3  UN  C  1  SPC  3  DEL  1 1  SPC  3  PRÜGRHMÑ  " 
63070  PR I NT " C  3CRSR0  3  C 1 RVSON  3SELE 
CCJOMEC 1RVSÚF3" 

63060  GETS* : i F Sl= “ " THEN63020 

63030  IFSl=“C 11 THEN6  31 50 

63100  I FSSO  "  R  "  HM0S*O"C  uBH0S*O 

" B " BN0S4O  " L “ THENPR I NT “ C  1CLR3  “  sE 

NO 

63110  I FS * = " L  “  THE N 1 NPUT  *•  C  2CRSRD  3 
FECHHC 1SPC JOEC 1SPC3H0VC4SPC  300.0 
0.S4C 1 OCRSRL  3 “ ;TD1 :G0T0631S0 
63120  IFS1="P"THENPUM 
63130  I FSt = " 6 “ THEN I NPUT " C  2CRSRD  3 
0ISC0C1SPC  3ENC 1SPC3ELC 1SPC 3DRIVE 
C  3SPC30C  3CRSRL  3  “  ;0R*  :0R4=0Rl+“  :  “ 
SG0T063170 

63140  PRINT"C1CLR3"!END 

63150  PRINT"PUESTR[ 1SPC  3ENC 1SPC3 

HORft : 1 1SPC  3HRMNSG“ 

6  3160  1 NPUT * C 16SPC3 000000 C  8CRSRL 
1"  :  T 1 4 : GOT 06  3000 

63170  CLOSE 1 :0PEN1 ,3, 15:PRIHT*1 . 
"S'+0RÍ»FGt :SHVEDR*+PG*,« -.GOT063 
000 

631S0  0PEN4 ,4  SPRINT #4  ,E4 ;CHR4 '  14 
■  ;PG1  SPRINT  44 

631SO  PRINTW4 ,E4; “VERS10NC 1SPC3D 
EL  C 1 SPC  3 " ; T01 ; “C2SPC 3 “ ; ¡GÜSU6632 
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VIC-20  sin  expansión 


I  Recordaréis  que  en 
el  n°  3  de  abril  apa- 

Juaquin  Torres  rec¡6  un  programa 

para  el  C-64  titulado 

i - 1  GOLF 

Bueno,  pues  me  he  decidido  y  lo  he  adaptado  para  el  VIC-20.  A  ver 
si  podéis  mejorarlo,  sobre  todo  en  el  aspecto  musical,  porque 
presentación  y  juego  creo  que  ya  valen. 

Yo  no  he  podido  poner  mejor  sonido  porque  no  dispongo  de  la 
suficiente  memoria  como  para  eso,  pues  sólo  me  quedan  libres  de 
setecientos  a  ochocientos  bytes. 

El  programa  en  si  es  similar  al  del  C-64.  Sólo  cambian  los  POKE  y 
luego  las  últimas  lineas  que  son  la  presentación  y  la  espera  de 


:r  si  adaptáis  más  programas. 


210  CL=INT<20*RND<0)+1):IFCL<1THEN21 
0 

220  IFCL>21 THEN210 
230  P0KEV+<22*18)+CL,32 
240  P0KEV+<22*18)+CL-21 , 101 
250  POKEV+  <  22*  1 8  >  -t-CL-43 ,101 
260  POKEV+  <  22* 18)  +CL-65 ,101 
270  POKEV+<22*18>+CL-87,101 
280  POKEV+ <  22* 1 8  >  *CL- 1 09 , Z 
290  POKE V+C 22* 17 >,81 
300  POKEW+-  <  22*  1 7  >  ,  1 

310  PR I NT “ [ HOM 1 C 4CRSR0 IRC SPC 1 CUANTOS 
t  SPC 1 METROS  C  SPC  3  ESTA t  SPC 1 EL  t SPC 1 HOVO 
";C,-“?" 

320  INPUTA : IFA>20THENPRINT"EXAGERADO 
! C  SPC 1 QUE  C  SPC 3 EL  C  SPC  3 C AM-PO  C  SPC  3  SOLO 
CSPC  3  T I ENEC2SPC  320C  2SPC  3ME-TROS. " :G0 
TO310 

330  I FA<0THENPR I NT “ NO C  SPC  3 SE C  SPC  3 RDM 
I  TEN  C  SPC  3  T I  RADAS  C  SPC  3  HAC I A  C  SPC  3  OE  T  RA 
S. “ :GOTO310 
340  FGRH=1T0A 


0  REM********************** 

10  REM 

20  REM  GOLF  VIC  -  20 
30  REM  ADAPTACION  DE: 

40  REM 

50  REM  JOAQUIN  TORRES 

60  REM 

70  REM  02-11-84 
80  REM 

90  REM ♦♦*♦♦*♦♦*♦*♦*+♦**♦♦*♦* 

100  P0KE36865, 155 :POKE36879,8 :P0KE36 
878, 1 5 :POKE36869,240 :PRINTCHR*<8) 

110  PR I NT “ C  CLR  3  C  WHT  3 “ : GOSUB900 
120  V=7680:W=38400 
130  FORC= 1 T 09 :  Z=  1 76+C 
140  PRINT" CCLR3 “ ; 

150  FORX=0TO21 
160  P0KEV+<22*18)+X,69 
170  P0KEW+  <  22* 18) +X , 1 
180  NEXT 

190  PRINT" C8SPC 3 GOLF C 1 8SPC 3 E 4C0MMT 3 C 9SPC 3 

200  PRINT“ELCSPC 3C AMPO t SPC 3 T I ENE C SPC 3 
20C2SPC3ME-CSPC3TROS. “ 


350  POKE  V-K  22*  17)  ,32 
360  POKE V*  <  22*17) +H ,81 
370  P0KEW-K22*1?>+H,1 
380  P0KEV+  <  22*  1 7  >  +H  ,  32 
|  390  NEXTH 

400  P0KEV-K22*17)+A,81 

410  P0KEW+<22*17)+A,1 

420  IFA=CLTHEN440 

430  GOTO560 

440  P0KEV+<22*19)+A,81 

450  P0KEU+  <  22* 1 9  >  +  A  ,  1 

460  POKE V+  <  22*  1 7  >  -*-A  ,  32 

4  70  FORAZ=7680TO7966 : POKE AZ , 32 : NEXT A 

2 

480  PRINT-CHOM3C2SPC30.K. C SPC 3 HOVO "C 
“HECHO.  “ 

490  REM  **ACIERT0** 

500  F0RL»1T015 

510  FORM=220+L*2TO200STEP- 1 

520  POKE36876,M 

530  NEXTM , L 

540  P0KE36876 , 0 

558  GOTO720 

560  FORAZ=7680TO7966:POKEAZ,32:NEXTA 
Z 

570  PR I NT " C HOM 3  E 2CRSRD 3 EL C SPC 3 HOVO C SPC 3 
ESTABACSPC3AC3SPC3 "CL“ C2SPC3METROS. " 


Nuevo  curso  de  ordenador  personal  y  programación  Basic 


SI  VAS  A  SEGUIR  VIVIENDO 
EN  ESTE  PLANETA  NO  TE  QUEDES 
DESCONECTADO 


Ahora  puedes  hacerlo  de  una 
forma  sencilla  y  divertida.  Con  un 
dedo  de  la  mano.  Sin  saber  una  pala¬ 
bra  de  inglés.  Y  sin  moverte  de  casa. 

Gracias  a  un  curso  claro  y  entre¬ 
tenido  que  te  ayuda  a  sacarle  al  or¬ 
denador  todo  lo  que  tiene  dentro. 

Por  supuesto  que  no  te  estamos 
hablando  de  un  Manual  de  Instruc¬ 
ciones,  y  allá  tú.  Se  trata  de  un  pro¬ 
grama  de  aprendizaje  muy  práctico, 
diseñado  por  especialistas,  para 
que  nadie  se  aburra  a  mitad  de  ca- 


Es.  para  que  te  hagas  una  idea, 
como  un  viaje  organizado  al  futuro. 
¿Quieres  una  plaza? 


do  eyeneyiac 

*c£M Qs' 

ccc  r~)  I 

EN  TASA  I 


Te  ofrecemos  12  manuales  de 
lecciones  explicadas  paso  a  paso. 

Te  ofrecemos,  si  no  tienes  orde 
nador,  el  COMMODORE  64,  el  mát 
teresante  del  mundo,  para  que  prac  - 

tiques  desde  el  primer  momento.  Te  ra  appe"  anexo'de9! 
ofrecemos  un  cuadro  de  profesores  -  optativo  u< 

que  te  orientan  continuamente  en  tu  commodori  64. 
aprendizaje.  ¿Qué  pones  tú?  Pacien-  ^mo  se  aprende6! 
cia.  Y  un  poco  de  voluntad.  trabaiando  con  ellos 

Con  esos  dos  instrumentos  te  Iaciún‘Com?madT( 
garantizamos  que  en  seis  meses  n0  son  nece 

serás  capaz  de  operar  con  cual-  íes  de  ningún  upo 

quier  programa  que  adquieras  y  dedic  J0ur^0n 

algo  que  te  gustara  mas:  podrás  sistema  de 

crear  tus  propios  programas  para  cada  manual 

USO  profesional  O  personal:  gestión,  ra  realizar  en  el  nn 
administración,  archivo,  estadística,  se^snecesaZos™ 
juegos,  estudios...  Verás  qué  divertí-  "  -Precio,  ti  c 


Otros  de  los 
cursos  CCC: 


Para  hablar  con  los  dedos, 
te  echamos  una  mano 

El  idioma  del  futuro,  se  practica  con  lo 
dedos.  Si  quieres  aprenderlo,  la  oportum 
dad  está  en  tu  mano:  Envia  este  cupón 


-  Dibujante  de  cómics. 

-  Inglés  (con  casette 
o  por  video) 


Pr 

íééíhíw^mn 

ni 

pp 

820  GOTO 130 

830  EORM=  1  TO2000 :NEXT  :P0KE36879, 27  :P 
R I  NT  ” £  CLR  3  £  BLU  3 “ : CHR*  <  9  > : END 
840  GOTO 130 

850  REM  «SUBRUTINA  DE  PREGUNTA 

860  GETB* : I FB#= “ ” THEN860 

870  IFB*=“S“THENR£TURN 

880  POKE 36879 , 27 : PR I NT “ t CLR 3 " ; CHR* C  9 

)  :ENO 

890  REM  *SU8RUTINA  OE  PRESENTACION 
900  PR I NT " £  CLR  3  £  2CRSR0  3  E4CRSRR3 JOAQU 
INCSPC  3  TORRES" 

910  PR I NT “ C  HOM  3  C  5CRSRD  3  £  7CRSRR  3 PRESE 


^  Binary 

Operator.— 

Operador  bina- 
~~W  rio.  Un  operador  ant¬ 

iemético  que  relaciona  dos 
término.  Los  operadores  binarios 
más  utilizados  son  los  de:  suma 
(+),  resta  (— ),  multiplicación  (*) 
y  división  (/). 

Binary  search. —  Búsqueda  bi¬ 
naria.  Es  un  método  de  búsqueda 
dicotómica  en  el  que,  en  cada 
paso,  se  divide  el  rango  a  buscar 
en  dos  partes  iguales  y  se  van 
realizando  aproximaciones  conse- 


Concierto  de  Aranjuez 

r  ,  77  i  77  7  I  Hola  a  todos  los 

José  Luis  Muñoz  I  raneo  [  |ectores  dc  csta 

I  ss; 

grama  al  que  he  titu¬ 
lado  EL  CONCIERTO  DE  ARANJUEZ.  Se  trata  de  un  programa 
totalmente  musical  que  creo  que  sin  ninguna  duda  os  va  a  gustar  a 
todos.  El  funcionamiento  del  programa  es  el  siguiente: 

En  pantalla  aparece  el  titulo  y  el  teclado  completo  dc  un  piano 
con  3  octavas  y  con  el  número  dc  cada  nota  dc  la  octava.  A  continua¬ 
ción  y  una  vez  terminad»  completamente  el  dibujo,  se  dan  2  opciones: 
I :  Manual  y  2:  Automático.  Si  pulsáis  1 ,  el  ordenador  hará  sonar  una 
nota  del  consabido  Concierto  dc  Aranjuez  cada  vez  que  vosotros 


cutivas  con  los 
elementos  de  los  extre¬ 
mos  del  intervalo  que  contiene 
al  elemento  buscado. 

BISAM. — Basic  indexed  se- 
quential  access  method.  Es  un 
método  de  acceso  utilizado  en 
basic  para  acceder  a  datos 
almacenados  en  unidades  que 
permiten  acceso  directo,  loca¬ 
lizándolos  rápidamente  por  me¬ 
dio  de  un  indice  que  generalmen¬ 
te  se  guarda  en  un  archivo 
secuencial  junto  con  los  datos. 
El  índice  es  actualizado  cada  vez 
que  se  hace  una  modificación 
que  afecte  a  los  campos  de 
búsqueda  por  clave  (ver  artículo 


sobre  los  ficheros  ISAM  número 
5  de  Commodore  World). 

BIT. — Binary  digiT.  En  no¬ 
tación  binario,  cualquiera  de  los 
caracteres  0  ó  I.  Es  la  unidad 
más  pequeña  posible  de  infor¬ 
mación.  Un  bit  es  suficiente  para 
decir  la  diferencia  entre  dos 
elementos  opuestos  como  si  y 
no. 

Bit  pattern. — Configuración  de 
bits.  Una  configuración  de  N 
dígitos  binarios  que  representan 
una  de  las  2AN  posibles  combi¬ 
naciones  con  ese  número  de  bits. 
Por  ejemplo  con  cuatro  bits  se 
pueden  obtener  16  combinacio¬ 
nes  diferentes. 
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pulséis  una  tecla  y  además  situará  un  pumo  negro  sobre  la  tecla  del 
piano  que  está  sonando  en  ese  momento.  De  esta  forma  vosotros  sois 
los  que  imprimís  el  ritmo  que  queráis.  Si  pulsáis  2,  el  ordenador  hará 
sonar  las  notas  de  esta  melodía  a  su  ritmo  normal  a  la  vez  que  tam¬ 
bién  nos  indica  sobre  el  teclado  del  piano  la  nota  que  suena  en  cada 
momento  y  suena  un  acompañamiento  (cosa  que  no  ocurre  en  la 
opción  I ).  He  de  advertiros,  aunque  ya  lo  comprobaréis,  que  aunque 
en  pantalla  aparece  el  teclado  de  un  piano,  el  sonido  que  se  escucha  es 
de  guitarra  española,  asi  como  el  de  acompañamiento.  Y  dicho  esto 
paso  a  explicaros  el  programa: 

Lineas: 

5-45:  Presentación  del  titulo  y  autor  (autor  del  programa,  no  dé¬ 
la  melodía.  Qué  más  quisiera  yo).  La  linea  35  podéis 
modificarla  a  vuestro  gusto  siempre  que  nombre  y  apelli¬ 
dos  no  ocupen  más  de  13  caracteres  ya  que  si  no  se  sal¬ 
drían  del  recuadro. 

55-410:  Como  la  sentencia  REM  indica  se  trata  de  dibujar  en  la 
pantalla  el  teclado  de  un  piano.  Hubiera  sido  más  fácil 
usando  PRINT.  pero  queda  mucho  más  bonito  hacerlo 
con  POKE  ya  que  el  efecto  que  produce  en  pantalla  da 
una  impresión  de  sofisticación.  La  inicialización  de  la 
variable  numérica  A=54272  en  la  linea  10  resulta  muy  útil 
ya  que  (aunque  creo  que  todos  lo  sabéis)  54272  es  la 
diferencia  entre  una  posición  de  la  memoria  de  pantalla  y 
la  misma  posición  de  la  memoria  de  color  asi  como  la 
primera  posición  de  memoria  de  los  registros  de  sonido. 

450-555:  Ajustes  sonoros  de  las  voces  1  y  3  que  son  las  que  vamos  a 
utilizar.  La  1  para  la  melodía  normal  y  la  3  para  el  acom¬ 
pañamiento.  Una  vez  realizados  estos  ajustes,  el  sonido 
obtenido  es  el  de  guitarra  española. 

600:  Se  encarga  de  tomar  los  90  valores  de  los  90  dalas  corres¬ 
pondiente  a  las  90  notas  que  componen  la  melodía.  Cada 
dato  esta  compuesto  de  10  números.  Los  3  primeros  son 
la  alta  frecuencia  de  cada  nota.  Los  3  siguientes  son  la 
baja  frecuencia  de  cada  nota.  Los  2  siguientes  son  la 
duración  de  cada  nota.  Cuando  una  nota  empieza  a 
sonar,  el  valor  de  TI  es  igual  a  0.  Mientras  su  valor  sea 
menor  que  estos  2  números,  la  nota  seguirá  sonando.  Los 
2  números  restantes  indican  el  lugar  del  piano  en  el  que 
deberá  aparecer  el  punto  que  indicará  qué  nota  se  está 
tocando  en  ese  momento.  A  estos  2  números  le  sumare¬ 
mos  luego  1 .864  para  que  el  punto  se  sitúe  en  la  posición 
de  memoria  de  pantalla  correspondiente  con  POKE. 

610-640:  Se  encargan  de  que  elijamos  una  de  las  2  opciones  ante¬ 
riormente  mencionadas. 

700-750:  Aqui  es  cuando  empieza  a  sonar  la  melodía. 

700:  Inicializa  el  bucle  que  hará  sonar  las  90  notas  y  pone  el 
reloj  a  0  al  principio  de  cada  notó. 

704:  Calcula  el  lugar  en  el  que  aparecerá  el  punto  sobre  el 
piano. 

705:  Hace  aparecer  el  punto  sobre  el  piano. 

710:  Toma  la  altó  frecuencia  de  cada  nota. 

720:  Toma  la  baja  frecuencia  de  cada  notó,  y  verifica  si  hemos 
pulsado  la  opción  I  ó  la  2. 


725:  Si  hemos  pulsado  la  opción  1  el  ordenador  espera  a  que 
pulsemos  una  tecla.  Mientras  no  lo  hagamos,  la  nota 
seguirá  sonando. 

727:  Si  hemos  pulsado  la  opción  I  saltará  a  la  linea  745. 

730:  Si  hemos  pulsado  la  opción  2,  el  ordenador  hará  sonar  la 
nota  mientras  TI  no  sea  igual  al  valor  de  los  números  7  y 
8  de  cada  dato  contenido  en  A$.  A  la  vez  enviará  la 
ejecución  del  programa  a  la  subrutina  3000  que  se 
encarga  del  acompañamiento. 

745:  Pone  la  envolvente  a  0  para  que  deje  de  sonar  la  nota. 
También  borra  el  punto  que  habia  sobre  el  teclado  del 

750:  Y  el  bucle  se  repite  para  continuar  con  otra  nota. 

800-2070:  Dalos  que  contienen  la  información  antes  mencionada. 

Estos  datos  se  almacenan  en  una  matriz  A$  (j)  de  90 
elementos  y  mediante  funciones  de  manipulación  de 
cadenas  como  habéis  visto  en  las  líneas  704  a  730  des¬ 
compone  cada  dato  de  10  números  en:  I  de  3  números, 
otro  de  3  números.  I  de  2  números  y  otro  de  2  números. 
3000-3020:  Subrutina  de  acompañamiento. 

Y  ya  nada  más.  Aunque  reconozco  que  es  un  palo  lo  de  copiar 
todos  los  datas,  pensad  que  más  me  ha  costado  a  mí  encontrar  los 
valores  y  sinceramente  creo  que  merece  la  pena.  Recibid  un  saludo. 


5  POKE53280, 1 :P0KE53281 , I 
10  PR I NT " [ VEL 1 CCLR 1 í 5CRSRD  3 " T  ÑB  <  7  > " C  BLE  3 
ELC6PC  3C0NC  IER1  Úl 5PC  JUEl SPC  JltkHI  IJUL.Í 
“  :fl=54272 

I 5  POKE 1190,112: P0KE55462 , 0 :FORL= 1 1 9 
1 TO 1 2 1 4 : POKEL , 64 : POKEL-eR , 0 : NEXT 
20  POKEL, 1 10 :POKEL+fi,0 :POKE 1255 ,66 :P 
0KE55527 , 0 : POKE 1 295 ,125: P0KES556 7 , 0 
25  F0RL=1294T01271STEP-1 :P0KEL,64:P0 
KEL  , 0 : NEXT : POKEL , 1 09 : POKEL +R , 0 
30  POKE 1230, 66 :POKE55502,0 
35  PR I NT " C HOM  3 1 8CRSR0  3 1 1 0CRSRR  3POR  C  SPC  3 
JOSE  C  SPC  3L . C  SPC  3  MUN  C  CRSRL 3  C  CRSRU  3 - C  CRSRO  3 
OZ“ 

40  PRINT" C 3CRSR03 CSPC  3  CSH IFTB  3 DE SH IFTB 3 

ECSHIFTB3FCSHIFTB3GCSHIFTB3RCSHIFTB3 

BCSHIFTB3CCSHIFTB30CSHIFT83ECSHIFTB3 

FCSHIFTB3GCSHIFTB3RCSHIFTB3BCSHIFTB3 

CCSHIFTB30CSHIFTB3ECSHIFTB3FCSHIFT63 

GCSHIFTB3HCSHIFTB3 " 

45  PRINT" C CRSRU 3  CSPC 3 CSHIFTB32CSH IFTB3 
2CSHIFTB32CSHIFTB32CSHIFTB32CSHIFTB3 
2CSHIFTB33CSHIFTB33CSHIFTB33t SHIFTB3 
3CSHIFTB 33CSHIFTB33CSHIFTB33CSH1FTB3 

4CSHIFTB34C  SH IFTB34CSHI FTB  34CSHIFTB3 
4 CSH IFTB 34 CSH IFTB 3“ 

55  REM  DIBUJO  PIHNO  CON  POKES******* 

♦♦**♦♦*♦****♦***♦*****♦****♦*♦***♦*♦ 


FERRE  -fllORET  /.fl. 


MAS  CERCA  DE  SU  CASA 


Encontrará  el  juego  n°  1  de  U.S.A.  SAUCER  ATTACK!  en  la  relación  de  tiendas  de  informática  o  kioscos  que  detallamos: 


En  BARCELONA 


feleumón  Computer.  C/.  Buenos  Aires,  57 
No*o-Digit,  S.  A.  Aragón,  472 
Electrónica  Jovall.  Gran  de  San  Andrés,  12» 

Electro  Afición.  Vlllaroel,  104 

Electrónica  Viras.  Mosen  Jacinto  Verdaguer,  7».  Sta.  Coloma 


La  Librería,  S.  A.  Avda.  Sarna,  2 
Librería  Artós.  Mayor  de  Sarria,  2 
Leonor  Hernández.  Reina  Elisenda,  2 
Librería  Bosch.  Ronda  Universidad,  11 
.  es  Z.  Paseóle  Gracia,  lí 

Libros  y 
XAPS.  Balines. 

Isla  del  Tesoro.  Manuel  Girona,  42 


Mandil.  Mandri/Cerdanyola 
Cairel.  Plaza  Niñez  de  Arce 
Kiosco.  Canuda  Ramblas 

Librería  Catatonía.  Rda.  S.  Pedro  Fte.  Corte  Ingles 

Kiosco  Vanguardia.  Paseo  de  Gracia 

Kiosco  Drugstore.  Paseo  de  Gracia 

Librería  Francesa.  Paseo  de  Gracia 

Kiosco  La  Oca.  Plaza  Cairo  Sotelo 

Kiosco  /.anón.  Plaza  Cairo  Soleto 

Kiosco  Princesa  Sofia,  frente  Hotel  Princesa  Sofia 

Kiosco  Intem.  Pedralbes  Paseo  Manuel  Girona 

Kiosco  Coca  (  aspe 


Kiosco  Tele  Express.  Pi 


iagonal  Fte.  Corte  In 

_ _ _ _ zo  de  Gracia 

Kiosco  Solí.  Ramblas  Plaza  Cataluña.  13 
Kiosco  Ya.  Plaza  Cataluña,  13 
Drugstore  Darid.  Tuse! 

Librería  Arcadia.  Tusel-Pje.  Arcadia 
Kiosco  Corte  Inglés.  Corte  Inglés.  Diagonal 


Vic  (Barcelona)  Serví  Compul.  C/.  Moragas,  4«  bjs. 

V  ilaf ranea  del  Penedés.  Radio  Computer  Cerner. 
Crtra.  de  Igualada,  21 

Tarragona.  Electrónica  Rifé.  C/.  Ramón  y  Cgjal,  64 
Gerona.  Regiscompte,  S.  A.  C/.  Emilio  Grahit,  17  bis 
Lérida.  Telesa.  Doctor  Fleming,  53 
Navarra.  Andorra  2.  Arda.  Roncesralles,  8.  Pamplona 
Zaragoza.  Ada  Computer.  Paseo  Independencia,  24-26 


Hall  Software.  C/.  Alférez 


Torrelarega  Cantabria.  Informática  Siglo  XXL 
C/.  San  José  M.  Pereda.  1 

Burgos.  Centro  Welcome.  Alejandro  Rodríguez  V  alcárcel.  » 
Madrid.  ABC  Informática.  Zurbano,  91-6-B 
Madrid.  Key  Informática.  Embaladores,  90  tienda 
Las  Palmas  de  Gran  Canaria.  Pedro  González  Melián. 
Rosario,  5  Vegueta 

Palma  de  Mallorca.  DimeL  S.  A.  Juan  de  Cremón,  4 


¡POR  FIN! 


Ha  llegado  un  N°  1 
en  USA  para  su 


Commodore  64 


Ud.  está  en  su  posición  vigilando 
Washington  D.C. 

La  ciudad  parece  apacible  desde 
su  puesto  de  defensa  y  no  hay  los 
signos  de  la  invasión  Extraterrestre 
que  Ud.  espera. 

De  pronto  el  silencio  es  alterado 
por  el  penetrante  silbido  de  los 
platillos  volantes.  Son  los  invasores 
descendiendo  sobre  la  ciudad. 

Ud.  entra  en  acción  y  pone  en  su 
punto  de  mira  al  platillo  volante. 

Aprieta  el  botón  de  juego  y  sale  un 
misil  que  destruye  al  ovni 
desintegrándose  el  platillo.  Otro 
platillo  volante  se  acerca  a  los 
edificios  y  antes  de  que  Ud.  se  de 
cuenta  destruye  el  monumento  de 
Washington  C.D.  con  un  rayo  de 
energía  atómica.  La  batalla 
transcurre  durante  el  día  y  en  un 
momento  determinado  pasa  a  ser 
de  noche. 


An  action  game 
for  the 

Commodore  64'“ 

Joystick  requlred 


Si  un  platillo  aterriza  todo  está 
perdido.  Cuando  Ud.  consiga 
neutralizar  el  ataque  el  juego 
•  continuará  y  se  deberá  destruir  la 
nave  madre.  Si  lo  consigue  unagrar 
celebración  le  espera  cuando 
vuelva  a  Washington  D.C. 


SAUCE R  ATTACK 
es  realmente 
un  JUEGO  DISTINTO 


FOTOS 

TOMADAS  DIRECTAMENTE 
ÓE  UN  MONITOR  1702 
COMMODORE 


INSUPERABLE  CALIDAD  AUDIOVISUAL 


PEDIDOS 

1 - 

NOMBRE . 

FERRE  - ftlOPCT  /.fl| 

DIRECCION . 

CIUDAD  PROVINCIA . 

Tuset  n.°  8,  entlo.  2°  Tel.  218  02  93 

BARCELONA  08006 

DISTRIBUIDORES 

Y  PARTICULARES 

□  Adjunto  cheque 

□  Contra  reembolso 

Precio  Venta 

Gastos  envió:  300  ptas.  9.975  ptas. 

60  F0RL=1585T01623:P0KEL,121 :POKEL+A 
,0 :FORC=l TOS :NEXT :NEXT 
65  L-1625 :GOSUB400 :L=1627 :GOSUB400 :F 
ORL= 1 63 1 TO 1 635STEP2 :GGSUB400 :NEXT  sL= 

1639 

70  GOSUB400 :  L = 1 64 1 :GOSUB400 :FORL= 164 
5T01649STEP2 :GOSUB400  sNEXT  :L=1653 :GO 
SUB400 

75  L= 1 655 SGOSUB400  :F0RL=1659T01663ST 
EP2 

80  GOSUB400 :NEXT 

85  FORL  =  1 629 TO 1 657STEP 1 4 : G0SU84 1 0 :  NE 
XT  sL= 1 637 :G0SUB4 10 :L= 1651 :G0SUB4 1 0 
90  POKE 1 945 , 1 09  s POKE 1 945+ A , 0 :  POKE 1 98 
3,1 25 : POKE 1 983+R , 0 

95  FORL= 1 946T0 1 98 1 STEP2 :POKEL , 64  sPOK 
EL+A,0:POKEL+1 , 1 13 :POKEL+1+A,0 
97  FORC=1TO20 :NEXT  tNEXT 
100  PÜKEL,64:POKEL*R,0 

200  PR I NT " L 9CRSR0 í  1 3SPC J0CTAVA-2C  2SPC  3 
C  SH I FTB 1 C  2SPC  I0CTRVR-3C  3SPC  1  C  SH 1 FTB I 
C2SPC  í OCTAVA— 4 C HOM I “ :GOTO450 
400  FORK=LTOL* 120STEP40 :POKEK, 160  sPO 
KEK +R  ,  0  s FORO  1 T08  s NEXT  J NEXT 
402  FORM=KTÚK+ 1 20STEP40  sPOKEM , 93 
405  POKEM+A,0:FORH=1TO8:NEXT:  NEXTsR 
ETURN 

410  FORK-LTOL+280STEP40 sPOKEK ,93  sPOK 
EK+A  ,8 :F0RC=1T08 :NEXT sNEXT :RETURN 
450  REM  AJUSTES  SONOROS  VOCES  1  V  3* 

******** 

500  FORL=A  TO  R+23  sPOKEL, O  sNEXT 
510  POKER+24  , 15 :REM  VOLUMEN 
520  POKEA+5  ,25:  REM  RTAQUE/DECAE  VO 
Z  1 

525  POKER* 19  ,25iREM  ATAQUE /DECAE  VO 
Z  3 

530  POKER+6  ,24 :REM  SOSTEN/ESCRPE  V 
OZ  1 

535  POKEA+20  ,27:REM  SOSTEN/ESCRPE  V 
OZ  3 

540  POKEA+3  ,0  :REM  PULSO  ALTO  VO 
Z  1 

545  POKER* 17  ,0  :REM  PULSO  ALTO  VO 
Z  3 

550  P0KEfl*2  ,255 :REM  PULSO  BAJO  VO 
Z  1 

555  POKER* 16  ,255:REM  PULSO  BAJO  VO 
Z  3 

600  DIMA<<89> :FORJ=0TO89:READ  R<<J>: 

NEXT 

610  PRINT" CHÜM] CCRSRUI 1 . - C SPC 3 MANUAL 
“ :PRINT"2. -CSPC3AUTOMAT1COCCRSRU3 “ 

625  GETOP* : I FOP*= “ 1 "THEHPR I NT " [ HOM  3 1 CRSRO  3 
C  KVSON  3 1 . - C  RVSOFF  3 “ «GOTO700 
630  I FOP*= “ 2 " THENPR I NT " C  HOM  3  C  2CRSR0  3 
CRVSON32. -CRVSOFF3 “ :GOTO700 
640  GOT0625 
700  FOR  J=0TO89:TI*i 


Alfonso  Ramírez  Ramírez 
David  Caballero 
Daniel  González  Alonso 
S.  Castell  Martorell 


■  44/Commodore  World  Enero  1985* 


704  C=1864+VAL<;RIGHT*(A*<J),2>) 

705  POKEC ,81  :POKEC+A,0:POKE54276,65 
710  POKE  A*1,VAL<LEFT*<A*<J>,3>> 

720  POKE  A, VAL<MID<<A<< J>, 4, 3> ) :1F0P 
<=“2"THEN730 

725  GETT< : IFT<=" “THEN725 
727  G0T0745 

730  I FT I < VAL <MID<<A<<J>,7,2>> THENGOS 
UB 3000: GOTO  730 

745  POKEA*4,0:FORB“1TO10:NEXT :POKEC, 

32 

750  NEXTJ :ENO 

800  REM:  ALTA  FRECUENCIA, BAJA  FRECUE 
NC IR, DURACION  DE  CROA  NOTA  V  POKE  EN 
LA 

810  REM: MEMORIA  DE  PANTALLA  PARA  INO 
ICAR  LA  NOTA  QUE  SE  ESTA  TOCANDO**** 

******** 

1000  DATA  0102051318,0091591616,0102 
056018,0102051418,0111141520 
1010  DATA  0122163122,0122161922,0122 
162522,0111143220,0102051318 
1020  DATA  0091591616,0102056818,0102 
051118,0111141220,0122161622 
1030  DATA  0141074824,0160474226,0122 
162622,0111142020,0111142020 
1040  DATA  0102052118,0102051518,0091 
591316,0081471614,0091595916 
1050  DATA  0102051618,0081471314,0080 
i  231412,0081474614,0091591716 

1060  OATA  0080231312,0070531410,0080 
237212,0080231012,0081471514 
1070  DATA  0091595816,0081471214,0080 
231512, 0080238 112, 00705357 1 0 
1080  DATA  0070531310,0080231212,0081 
471414,0091592816,0102051218 
1090  DATA  0111141520,0122161522,0141 
071224,0122161322,0141074624 
2000  DATA  0141071824,0160472126,0170 
372028 , 0 1 70372028 ,01703721 28 
2010  DATA  0160473626,0122161322,0111 
141420,0122166622,0160471426 
2020  OATA  0160471226,0141071324,0141 
072224 ,01221 62922 ,0111141120 
2030  OATA  0122161122,0141074524,0122 
160922,0111141020,0102051 1 18 
2040  DATA  0111144520,0102051018,0091 
590916,0081471314,0091596016 
2050  DATA  0081471714,0091591716,0102 
051718,01 1 1 141720,0122161722 
2060  DATA  0111141920,0102057613,0070 
532010,0088231512,0081471314 
2070  DATA  0091595616,0081471614,0080 
231612, 00802399 1 2 , 00705399 1 0 
3O00  REM  SUBRUTINA  ACOMPAÑAMIENTO  ** 
**** 

3005  0=0+1 : IFD<VAL<MID<<A<< J>, 7, 2>>+ 
15THENRETURN 

30 1 0  POKER* 18,65: POKER* 15,14: POKER* 1 
4, 107 :FORH=1TO80  :NEXT:O=0 
3020  POKER* 18, 64  sRETURN 


GJtVí 


VIC-20  +  3K  expansión 


Batalla 


Ricardo  David  Alba  Atei 

c/  Sumatra,  0-2  |  jugadores,  cada  uno 

Kl  Atabal  (MALAGA)  I  de  ellos  dispone  de 

-  23  ejércitos  y  otros 

tantos  cañones,  ademas  de  una  bandera. 

Cada  jugador  tiene  una  pantalla,  de  la  que  puede  salir  para  enfren¬ 
tarse  con  su  oponente  a  través  de  uno  de  los  tres  puentes  situados  en 
el  lado  opuesto  de  la  posición  inicial  de  sus  fichas. 

Las  fichas  aparecen  alineadas  una  debajo  de  la  otra,  a  excepción  de 
la  bandera  que  está  aislada. 

Los  cañones  al  igual  que  las  banderas  no  se  pueden  mover.  Los 
ejércitos  pueden  avanzar  o  retroceder  un  máximo  de  dos  espacios  en 
las  direcciones  del  plano. 

Si  se  desea  mover  una  ficha  habrá  que  posicionar  el  cursor  sobre  la 
ficha  a  mover  mediante  las  teclas  de  movimiento  de  cursor,  a  conti¬ 
nuación  se  pulsará  la  barra  espadadora  con  lo  que  la  ficha  quedará 
seleccionada  para  su  movimiento.  A  continuación  se  volverá  a  mover 
el  cursor  hasta  la  posición  de  la  pantalla  en  la  que  deseemos  poner 
nuestra  ficha  y  pulsaremos  la  tecla  con  lo  que  la  ficha  quedará 
movida  automáticamente. 

Si  queremos  pasar  una  ficha  de  una  pantalla  a  otra  habrá  que 
posicionarla  antes  al  final  del  puente,  pudiendo  colocarse  al  tumo 
siguiente  en  el  otro  lado  del  puente. 

Cuando  no  se  deseen  mover  todas  la  fichas,  se  moverán  las  que  se 
deseen  y  a  continuación  se  pulsará  la  tecla  “="  con  lo  que  el  tumo 
pasará  al  otro  jugador  apareciendo  su  pantalla. 

El  programa  permite  visualizar  la  pantalla  deseada  con  solo  la 
pulsación  de  la  tecla  que  visualizará  la  primera  pantalla  o  la 
tecla  que  visualizará  la  segunda  pantalla 

A  su  vez  al  pulsar  la  tecla  HOME  el  cursor  se  situará  en  la  esquina 
superior  derecha,  al  pulsar  la  tecla  **£’’  el  cursor  se  situará  en  la 
esquina  superior  izquierda,  al  pulsar  la  tecla  “T"  se  colocará  en  la 
esquina  inferior  derecha,  y  al  pulsar  la  tecla  irá  a  la  esquina 
inferior  izquierda. 

Si  colocamos  una  ficha  a  una  distancia  de  uno,  dos  o  tres  espacios 
de  un  tanque  este  dispara  contra  nosotros,  y  si  obtiene  una  tirada 
inferior  a  cuatro  nos  habrá  destruido,  desapareciendo  nuestra  ficha 
del  terreno  de  juego. 

Un  tanque  será  destruido  al  posicionar  una  de  nuestras  fichas  sobre 
el  tanque  que  deseemos  destruir. 

Dos  fichas  entraran  en  combate  cuando  estén  juntas,  resultando 
ganadora  la  ficha  que  consiga  una  puntuación  mayor  que  la  otra;  en 
caso  de  empate,  la  tirada  se  repetirá. 

Cada  vez  que  el  dado  o  los  dados  aparezcan,  el  programa  se  parará 
hasta  que  se  pulse  una  tecla  cualquiera. 

El  juego  acaba  cuando  una  ficha  enemiga  se  posiciona  sobre  la 
bandera  del  otro  jugador  resultando  este  último  perdedor  de  la 
batalla. 

El  juego  corre  en  el  VIC-20,  pero  necesita  una  ampliación  de  3K  de 
RAM.  Si  se  dispone  del  SUPEREXPANDER,  habrá  que  anular  la 
influencia  de  dicho  cartucho  en  la  memoria  ROM  del  ordenador,  ya 
que  interfiere  en  los  gráficos  del  programa  destruyéndolos  por  com¬ 
pleto.  Esto  se  consigue  con  el  siguiente  programa  que  debe  ser  ejecu¬ 
tado  antes  de  cargar  el  programa  BATALLA. GRAF.  El  programa  es 
el  siguiente; 

POKE  256,1 20:POKE257,76:POKE258, 47:  POKE259,253:SYS256 

El  programa  está  dividido  en  dos: 

—BATALLA. GRAF  que  crea  los  gráficos; 

— BATALLA.PROG  el  juego  propiamente  dicho. 

La  segunda  parte  se  divide  en: 

Lineas: 

1-1000:  lnicialización  de  variables. 

1020-1097:  Introducción  de  órdenes. 

1097-1 109:  Controla  el  cambio  de  tumo. 

3000-3040:  Cede  el  tumo  al  otro  jugador. 

4000-4890:  Diversos  casos  de  combate  y  simula  dado. 

5000-5 100:  Paso  de  cursor  a  otra  pantalla. 

6000-6 1 30:  Dibuja  campo  y  fichas. 

6900-7003:  Conserva  el  lugar  pisado  por  el  cursor. 

8000-8080:  Elige  ficha  a  mover. 

8400-8640:  Mueve  ficha  y  controla  la  posible  batalla. 

8900-9070:  Mueve  el  cursor  a  esquinas. 

1000:  Mira  el  carácter  que  hay  debajo  del  cursor. 
11130-11268:  Mensaje  de  fin. 


I  Este  juego  simula 
una  batalla  entre  dos 
jugadores,  cada  uno 


1  P0KE368?9,8 

10  PR I NT " C  CLR  3  C  WHT  3 [ 3CRSRD 2  C  2CRSRR  J 1 3SH I  FT*  3 
CSHIFTI 3  CSPC3CSHIFTU3  C2SHIFT*3  CSHIFT I ) 

C  SPC  3  C  SH I F  TU  3  C  2SH I FT* 1 C  SH I FT I 3  C  SPC  3  C  SH I  FTU  3 
C2SHIFT* 3 CSHIFT I 3 

20  PR I NT “ 1 2CRSRR  3  C SH I FT - 3  C  2SPC  3  C  SH I FT- 3 
CSPC3CSHIFT-3C2SPC3CSHIFT-3C2SPC3CCOMMM3 
CCOMMG3  C2SPC3  CSHIFT— 3  C2SPC3  CSHIFT— 3 
30  PR I NT " f 2CRSRR 3CSHIFT-3C 2SPC 3CSHIFT-] 

CSPC3  CSHIFT-3C2SPC3  CSHIFT-3  C2SPC  3  CCOMMM3 
C  COMMG  3  C  2SPC  3  C  SH I FT- 3  C  2SPC  3  C  SH I F  T -  3 
40  PR INT “ C 2CRSRR3  C  3C0MM@  3  C  SH I FTK  3  C SPC  3 
C  SH  I  FT  J  3  C  2SH IFT*  3  C  SH  I FTK  3  C  2SPC  3  C  COI1MM  3 
CC0HMG3C2SPC3CSHIFTJ3C2SHIFT*3CSHIFTK3 

50  PR I NT " C  2CRSRR 3  C  3C0MMT  3  C  SH I FT I 3  C  SPC  3 
C  SH  I  FTU  3  C  2C0MMT  3  C  SH  I FT  I  3  C  2SPC  3  C  COMI1M  3 
C  C06II1G  3  C  2SPC  3  C  SH  I  FTU  3  C  2C0MMT  3  C  SH  I F  T I  3 

60  PRINT" C2CRSRR3  CSHIFT-3C2SPC3CSHIFT-3 
CSPC3CSHIFT-3C2SPC3ESHIFT-3C2SPC3CCOMMMJ 
C  COMMG  3  C  2SPC  3  C  SH  I  FT-  3  C  2SPC  3  CSH IFT-  3 
70  PR I NT “ C  2CRSRR  3  C  SH I FT - 3  C  2SPC  3  C  SH I FT- 3 
CSPC3CSHIFT-3C2SPC3CSHIFT-3C2SPC3CCONMM3 
C  COHMG  3  C  2SPC  3  C  SH I FT- 3  C  2SPC  3  C  SH I F  T -  3 
80  PR  I  NT  “  C 2CRSRR  3  C  3SH I F  T*  3  C  SH I FTK  3  C  SPC  3 
C  SH I FTK  3  C  2SPC 3  C  SH I FT J  3  C  2SPC 3  C  COMMM  3  C  COMMG  3 
C2SPC3CSHIFTK3C2SPC3CSHIFTJ3 


Tele  Sant  Just 

Mayor,  2  Tel  (93)  371  70  43 
SAN  JUST  DESVERN  (Barcelona) 


INTERFACE  para  recibir  y  transmitir 
CW  y  RTTY  en  el  VIC-20  y 
COMMODORE  64 


INTERFACE  para  poder  conectar  cualquier 
cassete  a  los  ordenadores 
COMMODORE  64 


BASE  DE  DATOS  en  cassette 
ARCHIVO  DE  OSL 


'  NECESITAMOS  DISTRIBUIDORES'' 


¿Utiliza  sólo  un 


Utilizar  un  COMMODORE  64  únicamente 
para  jugar,  es  como  pedirle  a  Albert  Einstein  que 
nos  resuelva  la  raíz  cuadrada  de  cuatro. 

El  cerebro  del  ordenador  apenas  funciona. 

Para  aprovecharlo  al  máximo,  lo  que  Vd. 
necesita  son  programas  interesantes  (archivo  de 
documentos,  educación  interactiva,  estimulantes 
juegos  o  proceso  de  textos )  y  lógicamente  los 


periféricos  adecuados: 

—  La  unidad  de  disco  Commodore,  un 
almacenaje  de  datos  muy  rápido,  fiable  y  di 
gran  capacidad. 

—  La  unidad  de  cassette  Commodore,  una 
forma  económica  de  introducir  y  almacena 
programas. 

—  El  monitor  en  color  Commodore,  para 


MICROELECTRONICA  Y  CONTROL  el  Valencia,  49-53. 08015  Barcelona,  c/  Princesa.  47, 3.°  G.  28008  Madrid. 
UNICO  REPRESENTANTE  DE  COMMODORE  EN  ESPAÑA 


COMMODORE  MPS  801 
Impresora  de  matriz 


lograr  que  los  textos  y  gráficos  sean  más 
claros  y  vivos  que  en  un  televisor. 

—  3  impresoras  y  un  printer-plotter,  para 
copias  en  papel,  en  blanco  y  negro  o  color. 

-  Los  joystick  y  paddles,  para  conseguir  que 
los  juegos  sean  más  excitantes. 

Sea  exigente.  Si  su  cerebro,  el  de  su 
COMMODORE  64,  puede  darle  100,  no  se 
conforme  con  10. 


ft  commodore 

v  COMPUTER 

la  emoción  del  futuro 


1030  IFT*=“«-'‘TH£NT=1  SGOSUB6000 :GOSUB 


" C  4CRSRR  3  C  SH I FT 
C4SPC  3 [ SHIFT— 3  C2SPC  3 1 SHIFT- 3 
160  PR INT“ C4CRSRR3  CSHIFTK ] [SHIFT*  í  C SHIFTK 3 
C2SPC3ISHIFTK3 £ SHIFT* 3f SHIFTK3£2SPC3 
ESHIFTK3I2SPC3ESHIFTJ3 

170  PR 1 NT " C 2CRSRD  3  1 3CRSRR 3  C  PUR  3 POR C  SPC  3 
R I CRROG  C  SPC  3  RLBA 
980  G 1 =32768 :G2=7 168 

990  FORI=0TOS12iK=PEEK<Gl+I> :P0KE<G2 
♦I>,K»NEXTI 

1000  DRTA0, 126» 189,219,231 ,231 ,219, 1 
89,126 

1002  ORTR1 , 195, 189, 126,34,34, 126, 189 
,195 

1004  DRTR8, 0,238, 238, 0,0, 187, 187,0 
1040  DRTA3, 255, 255, 255, 255, 255, 255, 2 

55.255 

1042  0RTR6, 0,224, 192,224,240,224,192 
,224 

1044  DRTR7,0, 7,3,7, 15,7,3,7 

1046  0RTR2, 0,254, 238, 238, 130,238,238 

,254 

1098  DHTR49, 255, 255, 255, 255, 239, 255, 

255.255 

1100  ORTR50, 255, 255, 19 1,255, 255, 255, 

251.255 

1102  DRTR51, 255, 255, 191, 255, 239, 255, 

251.255 

1 1 04  DRTR52 , 255 , 255 ,187, 255 , 255 , 255, 

187.255 

1106  DRTR53, 255 , 255 ,187, 255 , 239 , 255 , 

187.255 

1108  DRTR54,255,255, 171 ,255,255,255, 

171.255 

1510  FORI=0TO12  sREROC :FORJ=0TÚ7 :RERO 
K  »P0KEG2-KC*8>+J,K  sNEXTJ  sNEXTI 
1600  P0KE52 , 28  JP0KE56 , 28 


1  P0KE36879 ,  8  s  fl*  <1 >  «  “  E  CRSRU  3  C  BLU  3  C 1 7CRSRR 3 
CCCCC" tCH< 0=8180 «X=E2iV=XsVl=X:Xl=X 
¡POKE36878, 15 

2  DIMJ<2,22>,C<2,22>,M<2,22> iCH<2>=8 
163 :B*< l >=“ ECRSRU3  ERE03  E 1 7CRSRR3HHHH 
H“  :S=7680 

5  R*<2>="EBLU3CCCCC“sflC=32 
411  P0KE36869 , 255 
415  CO=30720 
417  B*<2>=“ CRED3HHHHH 

420  FOR I =0TO2 2 J  J  < 1 , 1 > -S+2+ 1 *22  8  J  <  2 , 1 
>=— l*< J< 1 , I >*17) »C< 1 , I >“J< 1,1 >+2 iC(2 
, I >=J<2, I >+2 

421  NEXT  sTU=l 

1000  T=1 :D=7701 :GOSUB6000 
1020  GETT* 


1 040  I FT* = " - “ THENT =2 : GOSUB6000 : GOSUB 
10000 

1050  IFT*=“ CCRSRU3 *'THENX=X-1  sX2=l  sGO 
TO7000 

1060  IFT*=“ CCRSR03 “THENX=X+1 sX2=-l iG 
OTO7000 

1070  I FT t— “ t CRSRL 3 " THENV=V- 1 sV2=l jGO 
TO7000 

1080  IFT*=“£CRSRR3“THENV=Y«-1  sV2=-l  :G 
OTO7000 

1081  1 FT *= " C  SPC  3 “ THEN8000 

1082  I F T*= “ e " THEN8500 

1083  I FT ♦= “ £“ THENGOSUB9000 

1084  I FT <= “ C  HOM  3 “ THENGOSUB9020 

1085  IFT»=“*“THENGOSUB9040 

1086  IFT*=“T“ THENGOSUB9060 

1087  I FT *= " = “ THEH3000 

1088  GOSUB5000 

1097  P0KES+Y+X*22,35 

1100  FORI=0TO22: IFMCTU, I > =3THENNEXT i 
GOTO 1103 

1101  IFM<TU, I ><>2THEN1 111 

1102  NEXT 

1 103  FORI=0TO22 1 IFMCTU, I >=3THENNEXT  j 
GOTO 1105 

1104  MCTU, I )=0  tNEXT 

1105  IFTU=2THENTU=1  JGOTOU09 

1 106  TU=2 

1109  T=TU : GOSUB6000 : GOSUB 1 0000 

lili  P0KES+V+X*22,RC 

2000  GOTO 1020 

3000  REM  TERMINAR  DE 

3010  REM  MOVER, 

3030  FORRE=0TO22 i IFMC TU,RE >=3THENNEX 
T i GOTO 1020 

3040  M<TU,RE>=2 iNEXT IGOTO1020 
4000  REM  BRTRLLR. 

4010  IFT=1THEN0< 1 >=7720 |0<2>=7722 sGO 
TO4030 

4020  D< 1 >=7703 lO<2>=7705 

4030  LK=2 :GOSUB4800 

4060  IFQ( 1 >=Q<2>THEN4030 

4070  IFQ< 1 »Q<2>THENJ<T2, I >=0 sM<T2, I 

>=3sGOTO4090 

4080  J<TU,FI>=0 :M<TU,FI >=3 

4090  GOSUB6000 i GOSUB 1 0000 :GOTO8620 

4100  IFTU=1THEND< 1 >=7704 :GOTO4120 

4111  OC  0=7721 

4120  LK>1 :GOSUB4800 

4130  IFQ<1><4THENJCTU,FO=0:M<TU,FO 

=3 

4140  SC=1 :GOSUB6000 : GOSUB 1 0000 :G0T08 
620 

4800  F0RT0=1T0LK 

4810  FORG=0TO10 :Q=INT(RNO( 1>*6>+1 sPO 
KE 36876 , 1 28+Q  s POKEO ( TO  > , 48+Q  s POKED  C  T 
D>+CO,l 

4820  GETT$  s 1FT<=" " THENNEXT 

4830  POKE36876,0 :Q<TO>=INT <RNO( 1 >*6> 

+1 sPOKEDCTD) ,48+Q<TD> sNEXT 

4835  GETT*sIFT*=“”THEN4835 

4840  RETURN 

4850  I FTU= 1 THENT2=2 : GOT 04855 

4851  T2=l 

4855  FORI=0TO22 : IFRBS<C<T2, I >  >«S+V+X 

*22THEN4870 

4866  NEXT 

4870  CCT2, I >=0 

4890  GOSUB6000 : GOSUB 1 0000 : RETURN 

4900  IF-M=P— 21 THEN4000 

4910  IF-M-P-MTHEN4000 

4920  IF— M=P— 43THEN4000 

4940  G0T08639 

5000  REM  PRSO  R  OTRA 
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ELECTRONICA 

»SANDQVAL^ 


DISTRIBUIDORES  DE: 

ORIC-1 
CASIO  FP200 
ROCKWELL- Al  M-65 
VIDEO  GENIE-EG-2000 
CASIO  FX-9000P 
SINCLAIR  SPECTRUM 
OSBORNE  1 
DRAGON  32 
NEW  BRAIN 
EPSON  HX-20 

C/SANDOVAL.  3.  4.  6  MADRID  28010 
TELEFONOS  445  18  33/18  70 
TELEX  47784  SAVL-E 


c/  aragón,  272,  8®,  6.* 

tal.  215  69  52  -  08007  barcelona 

•  Software  profesional  para  C-64 

•  Con  distribución  productos 
DIGITAL  RESEARCH 


>  Ordenadores  personales  Hard  y  Soft. 


Ollclnas  RENOVACION  EN  MARCHA.  S  A 

O  Espronceda.  34  -  J»  mt  MADRlO-3 
Telefono  (91)  441  24  78 
T leticia  REM  SHOP  1 
V  Galileo  4  MADRID- 15 
Teléfono  (91)  445  28  00 


COMPUTERWORLD  i1 


es  miembro  de  CW  (  ommunications/lnc..  el 
grupo  editorial  más  grande  y  de  publica¬ 
ciones  relacionadas  con  los  ordenadores  en 
18  países,  dando  como  resultado  la  canti¬ 
dad  de  nueve  millones  de  lectores  que  leen 
una  o  más  de  nuestras  publicaciones. 

¡¡¡Suscríbete!!! 

Tel.  (91)  231  23  88/95 


CENTRO  DE 
INFORMATICA 

Las  Rozas  -  Majadahonda 
EMPEZAMOS 
Cursillos  en  BASIC 
cada  15  días 
Directamente  en  ordenadores 
VIC-20,  COMMODORE  64 
SPECTRAVIDEO 

Teléfono:  637  31  51 


FERRE  mORET  /.fl. 


C/  Tusset,  8  -  Entresuelo  2.a 
Tel.:  218  02  93 
08006  BARCELONA 


•  ORDENADORES  PERSONALES 

•  ACCESORIOS  INFORMATICA 

•  COMPONENTES 
ELECTRONICOS 

•  TELECOMUNICACIONES 

Paseo  de  Gracia  126-130 
Tel.  237 11  82*.  08008  BARCELONA 


MICRt!Énf7DEN  „ 

-  ORDENADORES  PERSONALES  - 


•  SINCLAIR  SPECTRUM  Y  PLUS 

•  COMMODORE  64 

•  ATARI  800  XL 

•  ORIC  ATMOS 

•  DRAGON  32  y  64 

•  PERIFERICOS  Y  ACCESORIOS 

•  SOFTWARE  PARA  TODAS  LAS 
MARCAS 

•  CURSOS  DE  BASIC  PARA 
PRINCIPIANTES  (PRACTICAS 
CON  ORDENADOR) 

•  GRAN  SURTIDO  EN  LIBROS 
Y  REVISTAS 


Francisco  S ¡Ivela,  19 
Teléfono  401  07  27.  28028  MADRID 


/MICRO 


M 


HACEMOS  FACIL 
LA  INFORMATICA 

•  SINCLAIR  •  SPECTRAVIDEO 
•COMMODORE • DRAGON 
•  AMSTRAD  «APPLE 
•  SPERRY  UNIVAC 


Modesto  Laluenti 
Telf.  253  94  54 
28003  MADRID 


Colombia.  3941 
Tel  I  458  61  71 
28016  MADRID 
José  Ortega  v  Gasset.  21  Padre  Damián,  18 
Telt  411  28  50  Tell  259  86  13 

28006  MADRID  28036  MADRID 


Fuentanal.  100 
Tell  221  23  62 
28004  MADRID 
Erequi el  Gon/áler.  28 
Tell  43  68  65 
40002  SEGOVIA 


Avda.  Gaudí.  15 
Tell  256  19  14 
08015  BARCELONA 


ORDENADORES 

personales/profesionales 

RED  DE  ORDENADORES 
PARA  COLEGIOS. 

ni 

IWICROUIFOIIMATICA 

Equipos/ Servicios 
Centro  de  formación 


HicroSisftemas 

Todos  los  meses 
publicaremos 
programas  para  los 
Commodore. 
¡¡Suscríbete!! 

Tel.  (91)  231  23  88/95 
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5010  REM  PANTALLA. 

5030  IFV>21AN0T=2THENV=21 
5040  IFV>21RNOT-ITHENV»0iT-2jGOTOS10 
0 

5050  IFV<0ANDT=2THENV=21 iT-1 :GOTOS10 

0 

5060  IFV<0ANOT=1THENV=0 
5090  RETURH 

5100  GOSUB6000  s  GOSUB 1 0000 : RETURH 

6000  REM  DIBUJA  CAMPO 

6001  REM  V  FICHAS. 

1  6020  PRINT“ÍCLR3",- 

6030  PR I NT “ I HOM  3 “  ;  : FORH- 1T03sF0RI«1T 
05 :PRINTA*CT) iNEXT 
6040  F0RI=1T02:PRINTB*<T> iNEXT iNEXT 
6050  PR I NT A*  <  T  > " C HOM 3 

6060  FORI-lT05iPOKECH<T)4l,3sPOKECHC 

T>-*-H-C0,6sNEXT 

6065  IFT«2TH£N6100 

6070  POKE7900.2 :FORI=0TO22 xIFJ<l,I>> 
0THENPOKE J< 1 , I > ,0  rPOKEJC 1 , I >+C0, 7 

6080  IFC< 1,1 >O0THENPOKEC< 1  , I  )  ,6 :POK 
EC<1,I>+C0,5 

6081  IFJ<2, I >>0THENPOKEJ<2, I > , 1 sPOKE 
J<2, I >+C0,3 

6090  NEXT: RETURH 

6100  P0KE7921 ,2 :FORI=0TO22 :  IFJ<2, I >< 
0THENPOKEHBS< J<2, I  >  >  ,  1 :P0KEA8S<  J(2, 1 
>»C0,3 

6110  IFC(2,  I 3O0THENPOKEABSCCC2, 1)  )  , 

|  7 :P0KEA8S<C<2, I >  >+C0,4 

6120  IFJ< 1  ,  I > <8THENP0KEABS<  J(1,I)),0 
|  iPOKEABS<  J< 1 ,  I )  >4C0,7 
i  6130  NEXT s RETURH 

6900  REM  CONSERVAR 

6901  REMLUGAR  PISADO. 

7000  A2=PEEK<S+V+X*22> 

700 1  I FA2=3ORX<0ORX>22THENX=X+X2  s  Y-V 
♦V2 IGOTO7004 

7002  IFV=22ORV=-1THEN7004 

1  7003  AC=A2 

7004  POKE36876,200:POKE36876,0iX2=0i 

Y2=0:GOTO1081 

8000  REM  ELEJIR  FICHA 

8010  REM  A  MOVER. 

8012  IFT=2TH£N8050 

8020  FORF I «0TO22 1 1 F J<  TU , F I > =S+V+X*22 
)  THEN8035 

:  8030  NEXT :FI«-1 iGOTO 1020 


8050  FORF I =0TO22 s I F- 1 *  <  J  <  TU , F I >  > «S+V 

♦X*22THEN8070 

8060  NEXTsFI  — 1  JGOTO1020 

8070  IFM<TU,FI>=0THENM<TU,FI>=1 

8080  GOTO 1020 

8400  REM  MOVER  FICHA. 

8500  IFFI  — 1THEN1020 

8501  IFH<TU,FI>=20RM<TU.FI>=30RM<TU, 
FI)=0THEN1020 

8509  V3=< ABS< J<TU,FI >  >>-S  :X3=0 

8510  I FV3<22THEH854 1 
8520  V3=V3-22 

8530  X3=X3+ 1 

8540  GOTO8510 

8541  I FV=0ANOT=2ANOTU=1 AN0V3=21 THENV 
3=-l :V=0 :GOTO8560 

8542  I FV=2 1 ANO  T=  1 ANOTU=2ANOV3=0TH£NV 
=21 : V3=22 : GOT 08560 

8543  IFV=21RNOT=1ANOTU=1ANDV3=0THENV 
=21 s  V3=22  s  GOT 08560 
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8544  I FY=0ANDT=2ANOTU=2ANOY3“2 1 THENV 
3=-l |V=0 sGOTO8560 
!  8545  I FV<2AN0TU= 1 ANOT= 1 THEN 1 020 

8546  IFV> 1 9AN0TU=2AN0T=2THEN 1 020 
|  8547  QW=J<TU,FI> 

8548  IFQW<0ANOT=1 THEN 1020 

8549  I FQW>0ANOT =2THEN 1 020 

!  8560  IFX3>X+20RX3<X-20RV3>V+20RV3<V- 

2THEN1020 

I  8562  I FPEEK  <  S+V+X*22  )  =2ANDTUOTTHEH  1 

1000 

8563  I  FPEEK  <  S*Y«-X*22  )  =6ANDTU=20RPEEK 
<  S ♦ V+X*22 ) »  7AN0TU= 1 THENGOSUB4850 
i  8569  I FPEEK  <  S+V+X*22 ) =8THEN8580 
,  8570  I  FPEEK  <  S+V+X*22 >032 THEN  1 020 

8580  POKEABSC  J<TU,FI >  > ,32 

8590  P0KES+Y+X*22,TU-1 «POKECO+S+V+X* 

|  22,1 :AC*TU-1 sX3=0 

8591  VA=1 iIFT=2THENVA=-l 

I  8592  IFTU=2THENT2=1 :GOTO8600 
8593  T2=2 

8600  J<TU,FI>=S+V+X*22íM<TU,FI)»2 
8610  J<TU,FI>=J<TU,FI>*VA 

I  8619  SC=0 

8620  P=J<TU,FI > ¡FORI-0TO22 ;M=J<T2, I > 
iC=C<T2, I > 

8630  IFP=M*10RP=M— 10RP=M+220RP=M-220 
|  RP=M+230RP=M— 230RP=M-2 1 0RP=M+2 1 THEN4 

|  010 

I  8631  IFTU=TTHEN8635 

8632  IFSC=1 THEN8635 

8633  IFP=C+1ORP=C+2ORP=C+3THEN4100 

|  8635  I F V=2 1 ANOT = 1 ORV=0ANOT =2THEN4900 

8639  NEXT «GOTO 1020 
9000  1 FT=2THENX«0 i V=5 «GOTO 1 0000 
9010  X=0:V=0: GOTO 10000 
9020  IFT=2THENX»0;V=21 :GOTO 10000 
9030  X=0  sV= 16  SGOTO10000 
9040  IFT=2THENX=22  »V=5: GOTO 10000 
9048  X=22iV=0s GOTO  10000 
9060  IFT=2THENX=22sV=21 SGOTO10000 
9070  X»22iV= 16 iGOTO 10000 
10000  AC=PEEK<S*V*X*22> j RETURH 
|  11000  REMFIN. 

11010  REM 

1 1 020  FOR I = 1 28T0255 : P0KE36876 , I : NEXT 
: FOR I =255T0 1 27STEP- 1 SP0KE36876, I sNEX 
T 

1 1 230  POKE 36869 , 240  :  PR I NT “ C  CLR  3  C  4CRSRR 3 

GCSPC3ACSPC3NCSPC3ACSPC3DCSPC30CSPC3 

R 

1 1 240  PR I NT ■ C  5CRSR0 3 1 CRSRR 3  JUGAOOR  s  C  SPC  3 
“TU 

11250  PRINT" C  3CRSR03 ICRSRR30TRACSPC  3 
1  PARTI OA? 

I  11260  GETT*jIFT*="“ THEN 11260 
11268  IFT*="S”THENRUN 
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Este  libro  va  destinado  tanto  para  aquellos 
que  comienzan  en  el  mundo  de  la  informá¬ 
tica,  como  para  los  que  ya  llevan  algún 
tiempo  y  desean  conocer  un  poco  más  a 
fondo  las  peculiaridades  del  basic  en  los 
microordenadores  más  populares  del  mer¬ 
cado  nacional.  El  autor  recomienda  a  los 
principiantes  que  lean  detenidamente  cada 
capitulo  y  practiquen  sobre  él,  antes  de  pasar 
al  siguiente. 

En  cada  capítulo  presenta  una  serie  de 
ejercicios  para  que  el  lector  los  resuelva  sobre 
un  cuaderno  o  sobre  el  mismo  ordenador, 
comprobando  las  aplicaciones  del  basic 
estudiadas  en  cada  capitulo  y  verificando 
posteriormente  los  resultados  con  los  que 
aparecen  en  el  libro. 

El  capitulo  cero  del  libro  está  dirigido  a  los 
que  llegan  ahora  a  la  informática.  Hace  una 
"microhistoria"  del  desarrollo  de  los  orde¬ 
nadores  desde  su  comienzo  hasta  nuestros 
días,  y  expone  de  modo  sencillo  los  concep¬ 
tos  fundamentales:  caracteres,  datos,  clasifi¬ 
cación  de  las  computadoras,  hard  y  soft,  el 
concepto  de  programa  y  la  arquitectura  y 
funcionamiento  de  un  ordenador  (CPU, 
ALU.  entradas/salidas,  RAM.  ROM,  impre¬ 
soras,  cintas,  discos,  etc.). 

El  capitulo  uno  enseña  a  manejar  el  orde¬ 
nador,  tanto  en  modo  directo  como  en  modo 
de  programa,  estudia  las  sentencias  funda¬ 
mentales  (LET,  PRINT,  etc.)  como  editar, 
ejecutar,  modificar  y  corregir  un  programa. 
También  indica  cómo  guardar  y  cargar  pro¬ 
gramas  para  volverlos  a  utilizar  posterior- 

El  capítulo  dos  y  siguientes  ya  explican 
más  detalladamente  y  a  un  nivel  superior  la 
utilización  de  diagramas  de  flujo,  variables, 
sentencias  iniciales  (input,  print,  rcm).  sen¬ 
tencias  de  control  (goto,  if  then,  l'or  next.  on 
goto),  manejo  de  caracteres  y  funciones  de 
cadenas  (len,  val,  leftS,  rightS,  spaceS,  etc.), 
funciones  generales  (max.  min.  int.  etc.),  tri¬ 
gonométricas,  definidas  por  el  usuario, 
entradas  y  salidas  de  datos  (read/data/res- 
lore,  spc.  lab,  pos,  print  at,  print  using). 

A  partir  del  capitulo  8.  el  libro  sube  su 
nivel,  comienza  el  estudio  de  la  utilización  de 
listas  y  tablas,  dimensionado  de  matrices 
(dim),  option  base,  mal  print  y  mat  input. 
También  estudia  las  subrutinas  e  instruccio¬ 
nes  de  llamada  y  retorno.  En  el  capitulo  10 
encontramos  el  estudio  de  los  Pecks  y  los 
Pokes,  cali,  usr,  sys,  memfre,  ti$,  y  otras  fun¬ 
ciones  especiales  (var,  wait.  swap)  y  las  órde¬ 
nes  de  control  y  depuración  de  un  programa 
(on' error  goto  y  trace  entre  otras). 

Una  vez  terminado  el  estudio  del  basic  y  su 
utilización,  en  el  capitulo  1 1  amplia  las 
nociones  que  dio  en  el  primer  capítulo  para 
detectar  errores,  modificar  programas,  nume¬ 
ración  de  lineas  de  los  programas,  etc.,  con  i 
una  serie  de  detalles  que  si  los  hubiese  inten¬ 
tado  explicar  anteriormente  no  los  habrían 
entendido  una  gran  parte  de  los  lectores.  | 


En  definitiva  este  libro  es  un  buen  curso  de 
basic  o  manual  de  consulta  para  todos,  están 
bien  desarrollados  todos  sus  capítulos  y  son 
fácilmente  comprensibles  siempre  que  se  ten¬ 
gan  los  conocimientos  necesarios  para  cada 
uno  de  ellos.  Por  esto  es  importante,  en  caso 
de  no  estar  seguro  de  saber  algo,  empezar  el 
estudio  desde  Tos  primeros  capítulos,  y  quien 
ya  tenga  conocimientos  puede  pasar  direc¬ 
tamente  a  capítulos  superiores. 

Uno  de  los  detalles  que  hacen  más  intere¬ 
santes  a  este  libro,  es  que  no  se  limita  a  estu¬ 
diar  el  Basic  del  VIC  o  del  C-64,  todas  las 
explicaciones  son  válidas  para  el  basic  en 
general,  por  lo  que  sigue  siendo  útil  aunque 
cambiemos  de  ordenador.  Además,  en  sus 
apéndices,  aparecen  el  juego  de  caracteres 
ASCII  y  las  variantes  utilizadas  en  los  orde¬ 
nadores  personales  más  populares  del  mer¬ 
cado  español  (IBM/ PC,  PET/CBM,  APPLE 
II.  ZX-81.  SPECTRUM,  VIC-20/C-64)  v  el 
de  las  impresoras  SHEIKOSA. 

Otro  de  los  apéndices  detalla  las  caracte¬ 
rísticas  de  las  impresoras  más  utilizadas 
actualmente  (EPSON  y  SHEIKOSA).  El 
siguiente  repite  las  típicas  y  útiles  tablas  de 


Commodore  64. 

Qué  esr  para  qué 
sirve  y  cómo  se  usa 

Autores:  D.  Ellershaw/P.  Schofteid 
Traductor:  Ramos  Tapia, 
yo  Pág.:  160. 

P.y.P.  950  Ptas. 

Editorial  .\oray 

C/San  Gervasio  de  Cassolas.  79 
08022  BARCELOy.A 

Una  buena  ayuda  para 
principiantes 

Esta  obra  va  dirigida  para  aquellos  usua¬ 
rios  del  ordenador  que  acaban  de  comprarlo 
y  se  encuentran  desconcertados.  Quizás  estas 
navidades  los  chicos  pidieran  a  SS.MM.  los 
Reyes  Magos  un  ordenador  “por  que  su 
amigo  tenia  uno...",  o  en  el  colegio  lo  están 
empezando  a  utilizar  o,  es  más  barato  a  la 
larga  que  los  video-juegos,  y  además  papá 
quiere  saber  qué  es  “eso"  e  intentar  llevar 
una  pequeña  contabilidad  o  fichero,  etc.  El 
caso  es  que  muchas  veces  los  usuarios  se 
encuentran  con  un  ordenador  en  su  poder  y 
no  saben  cómo  usarlo  ya  que  el  manual  es 
demasiado  complicado  y  no  aclara  muchas 


conversión  decimal-hexadecimal  (que  nunca 
vienen  mal),  y  por  último  un  detalle  intere¬ 
santísimo;  un  apéndice  describiendo  los 
comandos  y  funciones  de  cada  uno  de  los 
ordenadores  que  cité  anteriormente.  Esto 
nos  permite  poder  adaptar  a  nuestro  ordena¬ 
dor  algunos  programas  que  consideramos 
interesantes  y  que  aparezcan  publicados  para 
otros  ordenadores  de  diferentes  marcas,  ya 
que  en  la  descripción  de  cada  función  po¬ 
demos  ver  lo  que  hace  e  imaginar  el  modo 
en  que  podríamos  simular  la  función  de  esc 
comando  en  nuestro  ordenador  con  otro 
comando  o  conjunto  de  comandos  equiva¬ 
lentes.  Estos  apéndices  son  la  parte  más  útil 
de  libro  para  mi.  y  no  me  considero  un  prin¬ 
cipiante  en  informática... 


Para  todos  estos  propietarios  del  Commo- 
dorc  64  va  destinado  este  libro,  del  que  su 
autor  dice  en  el  primer  capitulo  (introduc¬ 
ción):  “Si  encuentra  usted  el  manual  difícil 
de  seguir,  si  ve  que  comprende  solamente  las 
primeras  lincas  y  poco  más,  entonces  ESTE 
ES  SU  LIBRO".  Estamos  totalmente  de 
acuerdo  con  el  autor  en  esta  afirmación,  ya 
que  aunque  parezca  mentira  hemos  recibido 
varias  decenas  de  llamadas  de  personas  que 
han  impuesto  su  dinero  a  plazo  fijo  en  algún 
banco,  les  han  dado  a  cambio  el  ordenador,  y 
no  sabían  ni  siquiera  cómo  conectarlo  para 
utilizarlo. 

El  libro,  que  originalmente  se  titula  “Vcry 
Basic  Basic"  (Basic  muy  básico),  está  bien 
traducido.  Además  una  nota  curiosa:  cuesta 
menos  la  versión  en  español  que  la  original 
inglesa,  al  menos  el  ejemplar  que  hemos 
encontrado  a  la  venta  en  uno  de  los  grandes 
almacenes  de  la  capital. 

Esta  obra  ha  sido  dividida  en  cuatro  sec¬ 
ciones,  la  primera  de  ella  titulada  “antes  de 
programar",  como  podéis  suponer  da  una 
serie  de  consejos,  desde  cómo  conectar  el 
aparato  hasta  algunos  programas  simples, 
pero  su  función  principal  es  la  de  familiarizar 
al  lector  con  los  comandos  basic  más  senci¬ 
llos  y  cómo  utilizarlos  en  los  programas 
(LET.  PRINT.  etc). 

En  la  segunda  sección  trata  el  manejo  de 
las  variables  y  las  técnicas  de  programación 
desde  un  punto  de  vista  elemental,  claro  y 
conciso.  La  utilización  de  las  variables, 
bucles,  contadores  y  bifurcaciones  han  sido 
ilustradas  con  numerosos  ejemplos  que  afor¬ 
tunadamente  no  son  sólo  teóricos,  sino  que 
tienen  aplicaciones  prácticas,  por  ejemplo:  en 
el  capitulo  de  manejo  de  cadenas,  para  ilus¬ 
trar  el  modo  de  utilizarlas,  encontramos  un 
“procesador  de  textos  primitivo"  que  ocupa 
solamente  seis  lineas  de  programa. 

La  tercera  sección  está  dedicada  al  manejo 
del  grabador  de  cinta  (datassette)  y  la  impre¬ 
sora,  son  sólo  dos  cortos  capítulos  con  una 
serie  de  instrucciones  y  consejos  útiles  para  el 
manejo  y  conservación  de  estos  dos  disposi- 

(Pasa  a  pág.  72) 
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Magia 


La  MAGIA  son  trucos,  la  MAGIA  es 
divertida. 

La  MA  GlA  es  hacer  lo  que  nadie  se  ha 
atrevido  y  resulta  ser  la  fuente  más  com¬ 
pleta  de  información  para  la  informática 
práctica. 

La  MA  GlA  es  una  sección  mensual  llena 
de  consejos,  trucos,  de  esto  y  aquello  del 
mundo  del  software,  hardware  y  aplicacio¬ 
nes,  trucos  descubiertos  por  los  demás  que 
hacen  que  la  informática  sea  más  fácil,  más 
divertida  o  más  animada. 

MAGIA  habla  de  ideas  sencillas,  pro¬ 
gramas  de  una  sola  línea,  subrutinas  útiles, 
hechos  de  informática  poco  conocidos  y 
otras  cosas  de  interés. 

Los  trucos  de  magia  enviárnoslos  compro¬ 
bados,  pues  hay  varios  incorrectos.  ¡Ah!  y 
no  nos  mandéis  trucos  repetidos...  ¡Listos!. 
Premios:  Ver  pág.  5. 


VELOCIDAD  EN  LISTADOS 

Hola  Commodorianos.  Esta  es  la  primera  vez  que  escribo  a  una 
revista,  y  os  envió  un  pequeño  truco. 

¿Os  molesta  la  lentitud  con  que  va  nuestro  C.T.R.L.?,  ¿cuando 
listando  un  programa  lo  presionáis  no  os  molesta  su  lentitud?  Pues 
ahí  va  el  truco,  apretando  el  C.T.R.L.,  apretar  a  la  vez  cualquiera  de 
estas  teclas.  “C=".  "RUN  STOP".  "1”,  “2".  “Q".  El  listado  pasará 
rápido  y  cuando  soltéis  la  segunda  tecla  continuaréis  con  la  lentitud 
de  C  T  R  L.  Y  una  pregunta,  ¿por  qué  al  encender  mi  64  y  poner 
PRINT  FRE  (8)  me  sale  —26627  de  memoria  libre? 

Alonso  Soler  Mellado 
C/ Miguel  Reverter.  9-1*-}° 
San  Justo  Devern  (Barna) 
NOTA:  La  respuesta  es  que  cuando  conectas  el  64,  este  tiene  más  de 
32K  libres,  e  interpreta  esta  cantidad  como  negativa.  Para  saber  cuál  es 
la  memoria  verdadera,  teclea: 

PRINT  2116-fre(0). 

UNA  SOLA  LINEA 

Leyendo  la  sección  de  Magia  de  vuestra  revista  me  ha  animado  a 
mandaros  un  par  de  PROGRAMAS  DE  UNA  SOLA  LINEA  no 
tienen  utilidad  práctica  pero,  al  menos  el  primero  creo  que  es  algo 
didáctico  para  aprender  los  POKES  de  activación  de  sonido  a  la  vez 
que  produce  un  efecto  de  pasos  con  eco,  esta  linea  debe  de  introdu¬ 
cirse  usando  las  abreviaturas  de  los  comandos  que  intervienen  en  ella: 
SIN  ABREVIAR: 

lV=54296:tori=35TOOstep-.3:pokeV,  1x2:  poke  V-2,235:  poke  V-l. 
1x7:  poke  V-5,94:  poke  V-6,230:  next:  gotol 

En  cuanto  a  la  segunda  no  precisa  ni  mucho  menos  de  los  80 
caracteres  pero  el  efecto  visual  conseguido  en  la  pantalla  del  monitor 
es  divertido: 

2  PRIN  T"[SHIFT-CLEAR]":  F0RI=1T0255:P0KE53281,I:  POKE 
>3280.  I:  NEXT:  RUN 

La  he  numerado  con  un  dos  esta  segunda  linea  porque  si  las  intro¬ 
ducimos  las  dos  en  el  CBM-64.  y  eliminamos  el  GOTOl  de  la  revista 
se  produce  un  nuevo  efecto,  es  más,  si  manejamos  únicamente  la 
primera  linea  y  variamos  el  valor  segundo  de  los  POKES  se  pueden 
crear  nuevas  pautas  de  sonido. 

Arcadio  Segura  Arnau 
C/San  Migue!.  61 

La  Cenia  ( Tarragona ) 


EL  BUFFER  DEL  TECLADO 

Básicamente,  lo  que  hace  es  anular  el  bu  fie  r  del  teclado,  que  puede 
ser,  en  algunas  ocasiones,  muy  engorroso.  Voy  a  poneros  un  ejemplo 
“mu"  clarito: 

10  FOR  N=0  to  499 
20  PRINT  N 
30  NEXT  N 
40  INPUT  A$ 

¡¡Qué  programas  más  bonitos  me  salen!!.  No.  en  serio.  Cuando 
corramos  este  programa,  mientras  se  esté  ejecutando  el  bucle  (que  se 
puede  ver  por  dónde  va  gracias  a  la  línea  20),  nosotros  teclearemos 
una  palabra,  por  ejemplo  “MI  CASA",  (por  eso  del  E.T.)  y  cuando  se 
termine  el  bucle,  ¿qué  pasa?,  que  nos  sale  el  interrogante  del  INPUT. 
seguido  de  la  palabra  ¡¡MI  CASA!!.  Sobre  todo.  ¡¡Antes  de  que  apa¬ 
reciese  el  interrogante!!. 

Pues  no  quiero  ni  contaros  lo  que  pasa  si  sustituimos  la  linca  40  por 
GET  A$:  IF  A$="  "  THEN  40. 

Esto  resulta  verdaderamente  incómodo  cuando  se  tiene  un  pro¬ 
grama  activado  por  MENU  y  con  sentencias  GETs,  como,  por 
ejemplo,  el  programa  de  AGENDA  que  os  mandé  (y  del  que  no  sé 
qué  vais  a  hacer  con  él,  pobrecilo). 

Todo  esto  se  puede  evitar  con  un  sencillo  truco,  que  es  ¡anular  el 
teclado!  con  los  POKEs  649. 

Si  ponemos  estas  nuevas  lineas: 

5  POKE  649,  0 

35  POKE  649,  10 

Se  elimina  ese  molesto  inconveniente.  Probad  ahora.  Si  queréis 
divertiros,  cuando  el  contador  del  bucle  vaya  por  el  número  250, 
pulsad  la  tecla  RUN/STOP. 

Es  para  el  Commodore  64. 

Juan  Rafael  Oscar  Martin  y  Mihalic 
C/Guayadeque.  4-3e  Izda. 

35009  Las  Palmas  de  G.  Canana. 


DESATASCADOR 

Os  envío  este  comando  DESATASCADOR  por  si  os  puede  solu¬ 
cionar  algún  problema,  para  el  Commodore  64. 

Ocurre  algunas  veces  trabajando  con  el  ordenador  que  perdemos 
totalmente  el  control  del  mismo  y  la  pantalla  empieza  a  hacer  cosas 
raras.  Pulsamos  entonces  la  tecla  RESET  (Commodore  World  n°  3. 
Pág.  38)  muy  recomendable  para  estos  casos. 
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FUEGOS  ARTIFICIALES 


Ahora  «le  lo  que  se  trata  es  de  recuperar  el  programa  sin  tener  que  I 
cargarlo  nuevamente  cosa  que  será  posible  siempre  que  el  atasco  no  lo 
haya  destruido.  1 

Para  ello  pulsar  la  siguiente  secuencia  de  teclas: 

(CLRXSPC)  3  (RVS-ON)  %  %  (RVS-OFF)  "  ”  (DEL)  (RVS-ON) 

E  (RVS-OFF)  -  (RVS-ON)  %  (RVS-OF)  #  (RVS-ON)  E  (RVS-OFF). 
(SHIFT  +  SPACE) 

que  nos  dejarán  estos  signos  en  la  pantalla: 

D=DIRECTO 

l=INVERSO .  DDIIDIDIDIDD 

U  3|%|%|"  |E|-|%|  «  i  El.  |~1 
SPC  GUION  SPC+SH 

"Sin  hacer  RETURN"  bajamos  una  línea  con  la  tecla  de  cu 
(CRSRD)  y  escribimos  la  siguiente  línea: 

POKE  2050,  3:  SYS  1024:  POKE  45,  PEER  (45)  +  2:  CLR  I 
(RETURN) 

Si  nos  diera  el  mensaje:  "ILLEGAL  QUANTITY"  hacer:  POKE 
46.  PEEK  (46)  +  I:  POKE  45.  2:  CLR  (RETURN). 

José  Ramón  Lasa  I 
Malxiategui,  34-4 0 
Bergara  ( Guipúzcoa ) 

NUMERO  DE  COLUMNAS 


Esta  es  mi  primera  colaboración  pero  creo  que  puede  ser  muy 
interesante  para  los  usuarios  del  VIC.  Se  trata  de  un  truco  de  magia 
que  aumenta  o  disminuye  el  número  de  columnas;  puede  tener  desde  I 
columna  a  27,  pero  hay  unos  problemillas:  uno  de  ellos  es  que  cuando 
se  pone  un  número  de  columnas  mayor  de  22  salen  en  la  parte  ba|a  de 
lu  pantalla  unos  signos  raros  y  el  otro  es  que  el  cursor  baja  y  sube  de 
22  en  22  y  es  difícil  de  situarle  donde  se  desea,  sin  más  paso  a  explicar 
el  truco. 

POKE  36882,  X  siendo  X  un  número  de  129  a  155 

POKE  36864,  Y  siendo  Y  el  número  que  mejor  centre  la  pantalla. 

Un  ejemplo  de  27  columnas: 

10  POKE  36882,  155 

20  POKE  36864,  10 

30  PRINT  "[CLR]'’  Mario  García  Anibarro 

C/Burgos.  n°  8  -  1Q  C 
Socio  n"  588 
Mósioles  (Madrid) 

YA  TENEMOS  “Ñ” 


Os  mando  un  pequeño  secreto  para  que,  a  partir  de  ahora,  poda¬ 
mos  poner  la  letra  "Ñ"  como  está  en  nuestro  idioma  y  así  no  tener 
que  hacer  o  poner  las  virguerías  o  sustitutos  que  habíamos  tenido  que 
utilizar.  Veréis  que  se  trata  de,  mediante  los  cursores,  poner  el  siglo 
(menos)  encima  de  la  letra  “N”.  Espero  que  os  guste  y  os  sirva. 
PRINT  "NINfCRSR  ARRIBA)  (CRSR  IZQUIERDA)  -  (CRSR 
ABAJO)  ITO" 

(Imprimirá  la  palabra  NIÑITO). 

Salvador  Lahoz  Ros 
C/  Federico  García  Lorca.  I6-3°-3‘ 
08033  MADRID 


VELOCIDAD  DE  LISTADO 

Os  mando  esta  colaboración  para  el  VIC-20:  El  POKE37877.H, 
reduce  la  velocidad  del  listado  de  cualquier  programa.  También 
aumenta  la  velocidad  de  movimiento  del  cursor. 

El  POKE37877,  250  reduce  la  velocidad  de  movimiento  del  cursor. 

C.  Luis  Cerón. 
Plaza  de  España.  5.  2" 
Almendralejo  (BADAJOZ). 

ACCESO  AL  MAPA  DE  MEMORIA 

Escribo  a  esta  sección  para  añadir  respecto  al  artículo  “Viaje  al 
centro  de  tu  Commodore".  perteneciente  al  nu  8,  un  cierto  truco  para 
acceder  al  mapa  de  memoria. 

Tecleando  POKE  53272,4. 

Fijémonos  en  la  posición  (12,6)  (columna,  fila)  respectivamente:  si 
pulsamos  por  ejemplo  la  tecla  INST/DEL,  vemos  cómo  aparecen 
consecutivamente  casi  toda  la  gama  de  caracteres  posibles  (probad 
con  otras  teclas).  A  su  vez  son  interesantes  de  observar  los  POKE 
53272,  8/50/65/80/96. 

Si  pulsamos  SHIF1  v  COMMODORE,  veremos  ciertas  cosas  de 
“MAGIA". 

Para  retornar  a  la  normalidad  RUN/RESTORE. 

Carmelo  García  del  Rich 
C/Uull.  169.  bis 
08005  BARCELONA. 


Este  es  un  pequeño  "truco"  o  mejor  dicho,  un  programa  que 
simula  unos  fuegos  artificiales.  Sólo  funcionará  con  el  S.  Expandcr. 
ya  que  utiliza  funciones  gráficas  que  el  VIC  standar  no  posee.  Sin  más 
os  escribo  el  programa. 

10  REM  FUEGOS  ARTIFICIALES 

20  INPUT  “(CLR)  QUE  MODO  GRAFICO";  MG 

30  IF  MG<  10RMG>2  THEN  20 

40  INPUT  "(CLR)  COORDENADA  DE  X";X 

50  IF  X<0  OR  X>1023  THEN  40 

60  GRAPHIC  MG 

70  CY=INT  (RND(I)*1024) 

80  CX=INT  (RND(  1  )*  1024) 

90  CO=INT  (RND(  1  )«8»MG) 

100  REGION  CO:  DRAW  2.X.1023  TO  CX.CY 
110GOTO7°-  Carlos  Rojas  López 

C/ Gustavo  Gallardo,  7.  4”  D 
Telf.:  (954)  6  1  41  24 


SIMPLIFICANDO 

Les  envío  una  receta  para  el  apartado  de  MAGIA. 

Creo  que  será  de  gran  utilidad,  sirve  para  simplificar  el  teclear  los 
comandos  DATAS. 

1 .  — Se  debe  introducir  de  modo  directo  la  instrucción  siguiente: 
POKE  650,128 

2.  — A  continuación  se  debe  escribir  la  linea  1000  como  sigue: 

1000  FORI=5TO  5  105  STEP5:  PRINT;"DATA":NEXT 

3. — Luego  se  ejecuta  RUN  1000  con  lo  que  la  pantalla  se  llenará  de 
números  de  linea  acompañados  del  comando  DATA. 

4.  — Se  acciona  la  tecla  HOME  y  se  debe  mantener  apretada  la  tecla 
RETURN  pulsada  hasta  el  final. 

A  continuación  vaya  a  la  línea  1000,  y  sustituya  los  dos  5  que 
figuran  en  la  misma  por  el  último  número  aparecido  en  pantalla.  Se 
vuelve  a  ejecutar  RUN  1000  y  así  hasta  terminar  con  las  líneas  de  los 
comandos  DATAS. 

José  MaNa  Fondevilla 
Suscriptor  5130 
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No 

derroche  dinero 
comprando  programas. 
Alquílelos 

y  disfrute  de  ellos  hasta 
que  se  aburra. 


Pídanos  nuestro  extenso  catálogo 
al  Apdo.  n°  12  de  ILLORA  (Granada) 
y  asómbrese  de  las  ventajas. 


Condiciones  especiales  para  socios. 
¡¡¡INFORMESE!!! 

Enviamos  a  toda  España. 

MENT  §(Q)IFTr°(£41  Apartado  12.  ILLORA  (Granada) 
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El  Misterio 
de  los 
Pokes  (IX) 


Por  Diego  ROMERO 


En  este  número  vamos  a  ver  algunas  de 
las  posiciones  más  importantes  del 
mapa  de  memoria  de  los  “hermanos 
mayores",  es  decir,  los  equipos  Commodore 
de  la  gama  alta.  También  podemos  conocer 
la  manera  de  pasar  programas  de  un  VIC  a 
un  PET  3000. 

Los  punteros  que  nosotros  encontramos 
en  el  VIC  y  el  C64  en  las  direcciones  S2B, 
S2C,  $2D,  etc.,  son  los  que  indican  el  princi¬ 
pio  y  final  de  la  memoria  ocupada  por  pro¬ 
gramas  Basic,  principio  y  final  de  variables, 
etc.  Todos  ellos  ya  los  he  explicado  en 
números  anteriores,  y  para  encontrar  los 
equivalentes  publicamos  esta  tabla  con  la 
dirección  correspondiente  del  C-64  y  su 
equivalente  en  el  PET-CBM  3000. 


Creo  que  estas  son  las  posiciones  más 
importantes  a  la  hora  de  intercambiar  pro¬ 
gramas.  ya  que  la  única  dificultad  que  se  nos 
presenta  al  cargar  un  programa  de  cinta  de 
un  VIC  en  un  PET  3000  es  que  el  VIC  carga 
normalmente  los  programas  en  la  primera 
posición  de  RAM  que  tenga  libre,  excepto 
que  el  indicador  de  carga  o  dirección  secun¬ 
daria  utilizada  al  hacer  save  sea  un  I,  con  lo 
que  al  hacer  LOAD  la  carga  se  realiza  en  las 
mismas  direcciones  de  donde  salió  el  pro¬ 
grama,  igual  que  si  hiciésemos  LOAD"  ",1.1. 

Para  poder  intercambiar  los  programas  en 
cinta  con  un  PET  debemos  añadir  una  linca  0 
REM  en  el  PET  al  principio  del  programa, 
luego  hacemos  LOAD"  ",  1  para  cargar  un 
programa  grabado  por  un  VIC,  y  luego 
hacemos  POKE  1025.  1:  POKE  1026,16.  Con 
estos  pokes  alteramos  el  enlace  de  la  primera 
linea  Basic  (el  0  REM)  a  la  posición  donde  se 
encuentra  la  primera  línea  del  programa  del 
VIC,  luego  podemos  hacer  LIST  y  si  quere¬ 
mos  eliminamos  la  linca  cero  tecleando  un 
cero  y  pulsando  Return.  La  única  condición 
para  que  esto  funcione  es  que  el  programa 
del  VIC  20  no  contenga  la  linea  cero  y  que 
sea  para  el  VIC  20  sin  ampliación.  En  caso  de 
disponer  de  ampliación  mayor  de  3K.  el 
poke  a  1026  sería:  POKE  1026,18.  Si  el  VIC 
estaba  ampliado  sólo  con  los  3  K  de  RAM.  el 
programa  cargará  perfectamente  sin  necesi¬ 
dad  de  teclear  la  linea  cero  y  los  pokes. 

Los  programas  del  VIC  se  pueden  utilizar 
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en  los  PETs  3000  mientras  no  empleen  ins¬ 
trucciones  POKE  a  la  memoria  de  pantalla,  y 
prescindiendo  de  los  pokes  de  sonido.  La 
pantalla  en  el  PET  3000  se  encuentra  a  partir 
de  la  dirección  32768  ($8000),  mientras  que 
en  el  VIC  20  no  ampliado  o  sólo  con  la 
ampliación  de  tres  K  RAM  está  situada  en  la 
dirección  7680  (SIE00),  y  si  está  ampliado 
con  más  memoria  se  coloca  en  las  direcciones 
4096(SI000)  y  siguientes.  Si  deseáis,  sabiendo 
la  diferencia  entre  las  posiciones  que  ocupan 
la  memoria  de  pantalla  en  uno  y  otro  orde¬ 
nador,  podéis  utilizar  en  los  PETs  los  pro¬ 
gramas  que  publicamos  para  el  VIC  con  las 
modificaciones  que  necesite. 

Para  aquellos  que  dispongan  de  un  CBM 
700,  les  puede  ser  útil  el  programa  ARRIBA 
PERISCOPIO  publicado  en  el  número  2. 
Este  programa  era  un  desensamblador  y  un 
pequeño  monitor  de  lenguaje  máquina,  y 
funciona  perfectamente  en  el  700  con  sólo 
añadir  una  línea  al  principio  del  programa  en 
la  que  especifiquemos  el  banco  de  memoria 
en  el  que  vamos  a  trabajar,  puede  ser:  500 
BANK  15,  o  hacer  un  INPUT  para  escogerlo 
y  luego  la  instrucción  BANK. 

Como  información  adicional  para  los  pro¬ 
pietarios  del  700,  que  todavía  no  lo  sepan,  la 
CPU  que  utiliza  es  la  6509,  que  como  el  6502, 
y  6510  puede  direccionar  solamente  64  K  de 
memoria,  pero  el  6509  incorpora  dos  regis¬ 
tros  en  las  direcciones  0  y  1  que  le  permite 
utilizar  la  técnica  de  bancos  de  direcciona- 
miento,  con  la  que  puede  acceder  a  16  de 
ellos,  cada  uno  con  64  K,  lo  que  hace  un  total 
de  1.048.576  Bytes  direccionables  ( I  Mbyte). 

Los  bancos  se  numeran  del  0  al  15,  y  están 
asignados  como  sigue: 

Banco  0  reservado  para  el  futuro  TV 

Banco  I  reservado  para  el  texto  de  los  pro¬ 
gramas  en  Basic. 

Banco  2  almacena  los  datos  (variables, 
arrays,  strings). 

Banco  3  al  14  sirven  para  ampliaciones  de 
RAM. 

Banco  15  reservado  para  el  sistema  (Kcr- 
nal,  DOS,  Basic,  etc.). 

Puede  parecer  poco  el  disponer  de  sólo  64 
K  de  RAM  para  programas  en  Basic,  pero  si 
tenéis  en  cuenta  que  son  sólo  para  el  pro¬ 
grama,  y  que  las  variables  se  almacenan  en 
otros  bancos,  podréis  ver  que  es  mucha 
memoria.  Como  dato  curioso,  diré  que  el 
programa  de  control  de  suscriptores  que  uti¬ 
lizamos  en  la  revista,  está  escrito  en  Basic,  uti¬ 
liza  ficheros  indexados  relativos,  permite  una 
infinidad  de  opciones  (caducidad,  modo  de 
pago,  número  de  cheque,  reembolso  o  talón, 
etc.)  y  ocupa  un  poco  menos  de  10  K  de 
RAM.  Podría  ocupar  menos  de  4  K  RAM, 


pero  le  añadí  montones  de  sentencias  REM 
por  todas  partes  para  que  si  alguien  quiere 
modificarlo  en  el  futuro  pueda  hacerlo  sin 
dificultad. 

El  banco  15  del  700  es  el  más  interesado, 
pues  en  él  encontramos  todos  los  dispositivos 
de  cntradas/salidas,  kcrnal,  etc.  Un  dato 
curioso  también  es  que  el  700  utiliza  el 
mismo  chip  generador  de  sonido  que  el 
Commodore  64,  por  lo  que  podríamos  utili¬ 
zarlo  para  aplicaciones  musicales  como  su 
hermano  pequeño,  para  ello  debemos  saber 
dónde  se  encuentra  el  SID  (MOS  6581)  y 
hacer  los  pokes  correspondientes  como  los 
hacemos  en  el  C64.  Para  que  sepáis  dónde  se 
encuentra  “escondido"  el  chip,  publicamos 


$0000  Registro  de  ejecución  del  6509. 

$0001  Registro  de  indirección  del 

6509. 

S0002-S03FK  RAM  del  sistema,  punteros 
kernal,  etc. 

S0400-S07FF  RAM  libre 
$O800-$0KIT  RAM  utilizada  por  el  sistema 
$I000-$1  FFF  Reservado  para  los  discos 
integrados 

S2000-S7EKE  24  K  RAM  o  ROM  de  cartu¬ 

cho 

S8000-SBFFF  ROM  intérprete  basic  4.75 
$I)000-SL)7FF  RAM  de  pantalla  #0x25. 
$I)800-SD8F'F  Controlador  de  video  Moto¬ 
rola  6845. 

$D900-Sd9F  F  MOS  6523  TPI  para  discos 
integrados. 

SDA00-SDAFF  MOS  6581  SIS  chips  de 

SDBOO-SDBFF  MOS  6526  CIA  interface 

oara  Z80  o  8088 
SDCOO-SDCFF  MOS  6526  CIA 
SUD00-SDDFF  MOS  6551  ACIA  para 
interface  RS-232 

SDEOO-SDEFF  MOS  6525  TPI  !. 

SDFOO-SDFFF  MOS  6525  TPI  #2 

SEOOO-SEFFF  ROM  editor  de  pantalla. 
SF000-SFFFF  ROM  kernal 

Si  queréis  pasar  los  programas  musicales 
del  64  al  700  debéis  cambiar  las  direcciones 
SD400-$D7FF  al  C64  a  las  direcciones 
$DA00-$DAFF  del  700  en  el  banco  15. 

Con  estos  detalles  damos  por  terminada 
esta  serie  y  dejamos  paso  a  algunas  series 
más  interesantes  que  nos  habéis  pedido,  la 
primera  de  ellas  comenzará  en  el  próximo 
número  y  es  una  serie  de  tres  capítulos  para 
un  gran  sector  de  nuestro  público...  los 
radioaficionados,  programas  para  utilizar  el 
C-64  y  VIC-20  en  su  interesantísimo  campo. 


FALLOS  DE  CALCULO 

El  programa  que  mando 
redondea  los  resultados 
con  los  decimales  que 
queramos.  Sin  embargo, 
sucede  a  veces  (muy  pocas 
veces  afortunadamente),  que  los  resultados 
aparecen  con  todos  los  decimales.  He  pasado 
bastantes  ratos  intentando  entender  por  qué 
sucede  esto  y  no  he  encontrado  respuesta, 
por  lo  que  me  gustaría  que  resolviéseis  este 
problema.  El  método  que  utilizo  para  redon¬ 
dear  los  decimales  es  el  siguiente: 

Si  deseamos  el  resultado  con  3  decimales  y 
A I  representa  un  número  con  8  decimales,  el 
mismo  número  con  3  decimales  será  (A2) 
MM  =  (10)  f  3 
A2  =  INT  (AlMM*+.5)/MM 
Rafael  Muñoz  Alfonso 
C/Costa  Brava.  15  (Can  Ballle) 
l  allirana  (Barcelona) 

El  método  que  nos  envías  es  el  correcto. 

El  fallo  está  en  la  forma  en  la  que  el  ordena- 


CARTA 


LENGUAJES  PARA  EL  VIC 

Quisiera  saber  si  se  dispo¬ 
nen  de  otros  lugares  de 
programación  para  el  VIC 
y  de  ser  asi  me  gustaría 
saber  los  precios  del  mer- 

Tambtén  me  gustaría  saber  si  se  ha  publi¬ 
cado  en  España  el  libro  "6502  Programing 
manual"  y  en  qué  editorial. 

Ricardo  Moni  anana  Gómez.  17  años 
CV Horno  n"  4.  /» 

Madriguera  (Albacete) 

Un  lenguaje  disponibe  para  el  VIC-20  es  el 
FORTH,  pero  no  tenemos  por  el  momento  la 
información  sobre  precios,  prestaciones,  etc. 
El  libro  que  citas  lo  hemos  visto  publicado  en 
España  pero  en  INGLES. 

MAS  EDUCATIVOS  Y 
MENOS  MARCIANITOS 

Quiero  deciros  que  me 
gusta  vuestra  revista,  pero 
que  sería  conveniente  au¬ 
mentar  los  programas  edu¬ 
cativos,  pues  ya  pasamos 
s  marcianitos  y  cosas  por  el  estilo. 

¿Me  podéis  decir  de  algún  programa  sobre 
música  para  el  VIC  sin  ampliación? 

David  Moreno 
C/Ueida.  6.  3 
Sant  Joan  Despi 
(Barcelona) 

Ya  hemos  contestado  a  una  petición  similar 
a  la  tuya  en  este  mismo  número,  el  tipo  de 


BLANCA 


Conocemos  algún  programa  musical  con  el 
VIC  SYNTHESIZER,  pero  es  mejor  que 
pidas  información  directamente  a  las  casas  que 
distribuyen  soft,  ellos  te  enviarán  mucha  más 
información. 

¿VIC  +  64  KRAM  C-64? 

Soy  suscriptor  vuestro  des¬ 
de  hace  l  año  más  o 
menos,  y  aprovecho  esta 
ocasión  para  preguntaros 
2  cuestiones  que  quizás 
parezcan  muy  "chorras”,  pero  siempre  tengo 
esta  duda  y  quiero  aclararla  de  una  vez  por 

La  primera  es:  Lleváis  ya  2  ó  3  meses 
anunciando  para  el  VIC-20  tarjetas  de 
ampliación  de  memoria.  Una  es  de  64K 
RAM  +  2  K  EPROM  (En  la  página  56  del 
número  9  lo  encontraréis).  Desearía  saber  si 
con  esta  tarjeta  conseguiré  tener  un  VIC-20 
transformado  en  un  C-64.  si  es  asi,  si  los  cas¬ 
settes  para  el  C-64  irían  bien  para  mi  VIC. 

La  segunda  es  cuando  nombráis  el  Super- 
expander  ¿qué  es?,  un  cartucho  de  amplia¬ 
ción  de  memoria  determinado,  o  es  simple¬ 
mente  el  cartucho  de  3.5K  RAM,  de  I6K 
RAM.  etc. 

Carlos  Darder  Toba I 
CV  Magallanes  C’anlilos,  s/n 
(Son  Vida) 

Palma  de  Mallorca 

El  VIC-20  sigue  siendo  un  VIC-20  por 
mucha  memoria  que  le  añadas  lo  que  pasa  es 
que  amplias  su  capacidad  de  almacenamiento, 
y  con  ello  el  tamaño  de  los  datos  y  programas 


PRINT  COS  12’ n  )  nos  dará  I 
Sin  embargo,  el  !NT(COS(2’n  /) 
El  ordenador  ha  hallado  el  cose 
•ara  él.  es  0,9999999999...  lo  q 
edondearlo  a  I  cuando  lo  va  a  i 


evitar.  Por  ejemplo,  podíamos  hacer. 
En  vez  de:  IF  INT(COS/2  *  ti  ))=!  the 
Hacemos: 

VAL  (STR$(!NT(COS(2’n  ))))=  l  th, 


PONGA  UN  ORDENADOR  EN  SU 
OFICINA  O  EN  SU  CASA 


dónde  pudna  adquirir  el 
/  \.  libro  del  Guia  del  Pro- 

_ \  gramador  y  qué  precio 

En  el  programa  publicado  en  el  número  6 
MUSICA  MAESTRO  me  gustaría  saber  si  es 
imprescindible  tener  impresora  o  no,  de  lo 
contrario  esc  programa  a  mi  no  me  funciona. 
Josep  M.'  Fondevila 
Suscriptor  5130 


PROGRAMAS  PROFESIONALES  CON 
LOS  EQUIPOS: 

OLIVETTI 

~F-~~=-=^r=  PERSONAL 

COMPUTER 


DUVICENTRO  Duque  de  la  Victoria.  13. 
Tienda  15  Teléf.  39  65  84 
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podrás  cargar  los  programas  de  un  C-64,  en  un 
VIC-20. 

Superexpander  es  el  nombre  que  la  casa 
Commodore  le  dio  a  un  cartucho  de  ROM  que 
añade  comandos  gráficos  y  de  sonido  al  VIC- 
20,  en  otros  países  lo  puedes  encontrar  con  una 
ampliación  de  memoria  de  3K  RAM  incorpo¬ 
rada  o  sin  ella,  pero  en  España  normalmente 
sólo  se  rende  con  ella,  por  tanto  siempre  que 
mencionemos  el  Superexpander.  ya  sabes  que 
es  ese  cartucho  que  tiene  nombre  propio. 

ERRORES  EN  EVALUACION 
DE  COLEGIOS 

Les  agradecería  que  acla¬ 
raran  el  por  qué  el  Pro¬ 
grama  Colegios  que  venia 
en  el  número  5  no  fun¬ 
ciona.  De  acuerdo  con  el 
manual  del  floppy  disk  Vic-1541,  las  senten¬ 
cias 

2006.  2007.  2090.  2095,  2710,  2715.  2845. 
2860,  2945.  2960,  5120,  5130.  5220,  5230  y 
5240  están  mal  y  el  programa  asi  lo  acusa  al 
ponerlo  en  marcha.  Soy  profesor  de  Ense¬ 
ñanza  Media  y  tengo  gran  interés  en  este 
Programa  (el  cual,  dicho  sea  de  paso,  es  muy 
difícil  de  seguir  en  su  estructura  por  la  gran 
cantidad  de  GOTO  y  GOSUB  que  tiene). 
Feo.  Herrera  Arrocha 
C/Ruiz  de  Alda.  36.  2".  pta.  4 
35007  Las  Palmas 

La  sintaxix  de  estas  líneas  es  correcta,  aun¬ 
que  no  coincide  con  la  que  pone  el  manual  en 
español,  no  da  errores,  y  el  programa  funciona 
perfectamente.  Si  consigues  un  manual  ameri¬ 
cano  y  otro  alemán,  compáralos  con  el  manual 
inglés  y  el  español  que  vienen  con  la  unidad  de 
discos,  de  este  modo  podrás  comprobar  que 
ninguno  de  ellos  coincide  en  la  sintaxis  de 


V1C  20 

TARJETA  MULT1FUMCION 

•  Amplía  64  K  RAM 

•  Zócalo  8  K  EPROM 

•  ¡Traspasa  y  ejecuta 
desde  cinta  programas 
de  cartuchol  (Novedad) 

p.v.p.:  20.600  pts. 

Pedidos  a  ICR 
C/  Farnós,  39 
Barcelona  08032 

Elija  forma  de  pago: 

□  Talón  bancario 

□  Contrareembolso 


muchos  comandos,  esto  es  en  parte  por  errores  j 
de  imprenta,  y  en  otra  parte  porque  la  unidad 
de  discos  1541  tiene  una  gran  flexibilidad  en  la 
forma  de  admitir  los  comandos  y  ninguna 
manera  es  mejor  que  la  otra,  ya  que  todas  son 
equivalentes  (al  menos  que  sepamos  nosotros, 
\>a  que  hemos  probado  todas  las  f  ormas  de  los 
comandos  y  no  apreciamos  diferencias/. 

CONTABILIDAD 
EN  CINTA 

El  programa  “LLEVA  TU 
PROPIA  CONTABILI¬ 
DAD",  ¿se  puede  adaptar 
a  la  cassette,  y  cómo? 

Los  datos  grabados  en 
una  cassette  puedo  sacarlos  en  pantalla 
¿PERO  COMO  PUEDO  OPERAR  CON 
ELLOS?  Gracias. 

Haciéndome  eco  de  tus  palabras,  no  se 
podrían  hacer  más  programas  didácticos, 
formulación  de  química,  teoría  de  la  Tísica,  y 
un  largo,  etc.  Gracias  nuevamente  y  espero 
que  entre  todos  podamos  dar  un  uso  más 
interesante  a  los  Microordenadores,  que 
aparte  de  entretenernos  nos  sirvan  para 
aprender  un  poco  más. 

José  Manuel  Solanas  Masip 
C/Labadoras.  6.  3"  Deha. 

Teléf.  229  630 
26005  Logroño 

El  programa  “ Contabilidad ”  está  hecho 
para  que  abra  ficheros  en  DISCO.  Hemos 
tenido  problemas  con  gente  que  nos  enviaba 
pedidos  de  CINTAS  de  este  programa.  Como 
son  muchas  las  solicitudes,  estamos  trabajando 
en  una  versión  para  cinta.  De  modo  que 
cuando  hagáis  vuestros  pedidos,  indicadnos  si 
queréis  la  versión  que  funciona  con  ficheros  en 
disco  o  la  que  funciona  con  ficheros  en  cinta. 

Por  supuesto  publicaremos  las  correspon¬ 
dientes  modificaciones  para  los  que  prefieran 
teclear  el  programa  por  sí  mismos. 

Supongo  que  te  refieres  a  datos  grabados 
como  ficheros.  El  manual  explica  claramente 
cómo  abrir  ficheros  para  grabar  y  leer  datos. 


EVALUACION  DE  COLEGIOS 

Soy  un  asiduo  comprador 
de  su  revista  y  debo  felici¬ 
tarle  por  la  calidad  de  la 
misma.  Tengo  un  Com¬ 
modore  64  comprado  re¬ 
cientemente  y  por  tanto  soy  nuevo  en  la 
micromania  por  ello  necesito  toda  la  ayuda 
de  quien  pueda  dármela,  me  animo  a  escri¬ 
birle  para  plantearle  tres  preguntas: 

— En  la  revista  n°  5  editan  un  programa  de 
evaluación  de  colegio  ¿se  puede  adaptar  a 
cinta?  ¿qué  hay  que  variar? 

—¿Cuándo  editarán  un  programa  para  un 
reloj  de  manecilla,  he  visto  algunos  en  otras 
revistas  pero  para  otros  ordenadores  y  no  sé 
adaptarlos,  espero  su  contestación,  y  sobre 
todo  háganla  sencillita,  para  que  pueda 
comprenderla. 

Cipriano  López  Viegas 
Edificio  San  Jorge,  n"  I0-2"  4‘ 

Badalona  ( Barcelona j. 

El  programa  “ Evaluación  de  Colegios"  fun¬ 
ciona  sólo  con  disco.  Porque  usa  ficheros  de 


acceso  directo.  Como  este  tipo  de  ficheros  no 
pueden  abrirse  en  cinta,  es  realmente  difícil 
adaptarlo. 

Un  reloj  de  manecillas  salió  en  el  Programa 
"Es  la  hora  de  aprender "  del  número  7. 


LOAD-ERROR  Y  SONIDO 

Algunas  veces  después  de 
apagar  y  encender  el  orde¬ 
nador.  al  hacer  un  load 
este  me  indica. 

FOUND “XXXX" 

?LOAD  ERROR 
OUT  OE  MEMORY 

Pero  el  ordenador  todavía  no  ha  empe¬ 
zado  a  cargar  el  listado  del  programa.  ¿Cómo 
puedo  solucionarlo? 

2)  Cuando  saco  por  pantalla  el  listado  de 
un  programa,  o  mensajes  al  correr  un  pro¬ 
grama.  o  realizo  dibujos  con  el  Super 
Expander.  el  ordenador  emite  un  pitido  que 
va  aumentando  si  coloco  más  caracteres  en  la 
pantalla,  sobre  todo  si  los  caracteres  son  en 
negro,  y  va  disminuyendo  si  los  quito.  El 
Poke  de  sonido  está  en  0.  y  lo  hace  con  varios 
televisores.  ¿Cómo  puedo  quitarlo?  ¿Tiene  el 
VIC-20  algún  mando  para  regularlo  como  el 
C-64?  (mi  ordenador  es  un  VIC-20). 

Xavier  Naval  Marcos 
Paseig  Pere  III.  80  2.‘ 

Manresa 

Barcelona 

I.  Esto  se  debe  a  algún  fallo  en  la  cinta  o  ene! 
azimut  del  datassette.  En  el  articulo  "Qué 
hacer  con  tu  datassette  para  que  entren  esas 
cintas  rebeldes"  que  salió  publicado  en  el 
número  8,  puede  que  encuentres  la  forma  de 
arreglarlo.  2.  A  veces  suele  suceder  que  no  son 
del  todo  compatibles  el  ordenador  y  la  televi¬ 
sión,  o  que  el  modulador  del  ordenador  no  está 
bien  ajustado.  Hay  una  bobina  dentro  del 
modulador  que  permite  solucionarlo,  pero 
antes  de  intentarlo  es  mejor  que  consultes  con 
Microelectrónica  y  Control. 

BALONCESTO 

Su  revista  es  de  mi  agrado: 
llevo  poco  tiempo  metido 
en  el  mundo  de  los  orde¬ 
nadores  y  esta  revista  me 
soluciona  problemas  que 

se  me  presentan. 

Querría  me  contestasen  si  en  España  se 
vende  un  cartucho  de  baloncesto,  pues  sé  que 
en  el  extranjero  ya  está  a  la  venta,  pero  no  he 
oido  nada  sobre  si  habia  llegado  a  España. 
Jesús  Pérez 

No  nos  dices  qué  ordenador  tienes,  pero 
sabemos  que  existe  al  menos  un  programa  en 
disco  para  el  C-64  llamado  BASKETBALL. 
Esperamos  que  el  distribuidor  nos  lo  mande 
para  que  podamos  daros  una  mayor  informa¬ 
ción  a  todos. 


CONSULTA  SOBRE  UNA  RESEÑA 

Primero  quiero  felicitaros 
por  la  revista  tan  buena 
que  hacéis.  Quiero  pre¬ 
guntaros  si  los  programas 
de  juegos  que  anunciábais 
en  el  número  4  de  la  revista  para  el  VIC-20, 
que  son:  El  camarero  Loco,  El  superdetective 
y  Hechizado,  necesitan  periféricos,  como 
pueden  ser:  Joystick,  Ampliaciones  de 
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memoria  o  Paddcs.  También  quiero  deciros 
si  podéis  publicar  más  programas  de  utilida¬ 
des,  educativos,  etc.  para  el  V1C-20. 

Julián  M.  Manglano  García 
CV Acera  de  Canasteros.  16  4‘ 

18012  Granada 

Los  programas  que  citas  son  para  el  VlC-20 
sin  ampliación  de  memoria,  y  pueden  funcio¬ 
nar  con  joystick  o  con  teclado.  Lo  de  publicar 
menos  juegos  y  más  utilidades  y  educativos 
depende  en  gran  parte  de  vosotros  mismos;  si 
las  colaboraciones  que  nos  enviáis  son  todas 

juegos,  la  mayoría  de  los  programas  publica¬ 

dos  serán  juegos,  si  nos  enviáis  más  utilidades, 
las  publicaremos.  Todo  esto  es  asi  por  ser  esta 
revista,  una  revista  hecha  por  los  propios  usua¬ 
rios  y  colaboradores. 


TECLADO  MUSICAL 

¿Qué  inslrucción/cs  es/son 
necesarias  para  que  al 
apretar  una  tecla  cual¬ 
quiera  del  C64  se  pro¬ 
duzca  un  sonido. 

Josep  María  Lecuona  i  Aragonés 
c/Sant  Migue!,  9 
San  t  Feliu  de  Gixols 
Gerona 

Para  conseguir  esto,  debes  tener  una  rutina 
en  código  máquina  o  en  basic  en  el  ordenador 
que  active  las  notas  al  pulsar  las  teclas.  En  el 
manual  de  usuario  del  C -64  aparece  publicada 
una  que  se  llama  piano  (o  algo  parecido ) 

So  existe  ningún  comando  que  te  permita 
hacerlo  en  modo  directo. 


INSERI  O  DELETE 

Señores:  Después  de  feli¬ 
citarles  por  el  acierto  de 
nuestra  revista  paso  a 
hacerles  una  pregunta. 
Con  mucha  frecuencia 
al  pulsar  la  tecla  INS-DEL/csta  queda  blo¬ 
queada  sin  moverse  el  cursor  hacia  la 
izquierda.  Es  normal  ¿qué  hacer  en  este  caso? 
Jordi  Erra  i  Fabregat 
Pau  Fie.  52 
Sant  Cugat  del  Falles 
Barcelona 

La  verdad  es  que  no  es  norma I,  en  todo  caso 
sería  asi  si  estuvieras  pulsando  la  tecla  SHIFT 
simultáneamente. 


RELOJ  EN  PANTALLA 

Desearla  si  fuera  posible 
me  dijeran  cómo  poner  en 
un  programa  (por  ejemplo 
de  juegos)  un  reloj,  mejor 
dicho,  que  en  un  rincón 
del  T.V.  mientras  estuviera  el  juego  en  mar¬ 
cha  fuera  marcando  la  hora,  minutos  y 
segundos. 

Para  eso,  entre  otras  cosas,  sirve  alguna 
rutina  similar  a  la  rutina  en  CM  que  salió 
publicada  en  el  número  9  en  “ Cursillo  de  Len¬ 
guaje  Máquina".  Si  quieres  hacer  lo  mismo  en 
basic,  puedes: 

1)  En  un  lugar  por  el  que  pase  siempre  el 
programa:  PRIST  '1  HOME]”;  TIS 

2)  Hacer  una  rutina  como:  2000  PREST 
\HOME\"  77S  y  llamarla  de  vez  en  cuando. 
Quizás  Diego  lo  saque  en  el  cursillo  de  len¬ 
guaje  máquina  próximamente. 

I _ 


COLABORACIONES  Y  ENVIOS 

En  primer  lugar  les  feli¬ 
cito  por  esta  revista,  y 
después  que  tengo  hechos 
dos  juegos,  y  exactamente 
no  sé  cómo  mandarlos. 
Benito  Santed  Pérez 
P°  Pujadas,  17-19-7 •  2.‘ 

Barcelona  08018 

Los  que  deseéis:  mandarnos  programas  de 
colaboraciones,  podéis  hacerlo  en  cinta  o  en 

disco,  este  es  el  mejor  método,  pero  si  prefieres 

también  podéis  mandar  los  listados  por  impre¬ 

sora,  aunque  en  este  caso  se  retrasará  su  publi¬ 
cación  algo  más. 

Las  cintas  que  enviéis  se  devolverán  con 
algún  programa  de  regalo  (de  los  de  la  revista, 
no  programas  comerciales). 


TINY  FORTH 

El  lenguaje  Tiny  Forth 
¿qué  es?  ¿Es  una  versión 
barata  del  Forth,  o  es  algo 
totalmente  diferente?.  Asi, 
es  compilado  o  interpretado. 

Ivo  Pía  Fallvé 
c/Capuchinos.  30,  4 
Tarragona 

Sabemos  de  dos  versiones  Inglesas  del  Tiny 
Forth,  una  de  ellas  es  una  implementación  en 
Basic  del  lenguaje  forth,  y  permite  hacer  tus 
primeros  pinitos  en  este  lenguaje  desde  tu 
ordenador  con  sólo  teclear  un  pequeño  pro¬ 
grama  que  fue  publicado  en  la  revista  Compu- 
ting  Today,  con  esto  puedes  conocer  el  Forth 
antes  de  gastar  un  montón  de  dinero  en  un 
cariucho  que  te  permita  trabajar  este  lenguaje 
de  verdad. 


La  otra  versión  de  Tiny  Forth.  es  también 
inglesa,  y  es  en  realidad  un  cartucho  para  tra¬ 
bajar  en  Forth,  son  solamente  4K  ROM.  por  I o 
que  su  vocabulario  es  muy  limitado  (normal¬ 
mente  son  I6K  ROM),  pero  con  el  Forth  es  un 
lenguaje  que  te  permite  definir  tu  propio  voca¬ 
bulario.  es  suficiente  con  disponer  de  unas 
pocas  primitivas  para  conseguir  crear  tu  Forth 
particular. 

Como  imagino  que  sabrás,  el  Forth  no  es 
siempre  interpretado  ni  siempre  compilado, 
depende  de  cómo  tú  ordenes  que  se  definan  I as 
palabras  forth.  Saturalmente  el  Tiny  forth  que 
está  implementado  en  basic,  es  una  simulación 
de  forth  lenta  y  que  trabaja  bajo  el  control  del 
intérprete  Basic. 


CATALOGOS 

Les  ruego  me  envíen  la 
ficha  técnica  y  lista  de 
capacidades  de  su  orde¬ 
nador  Commodore-64,  de 
la  unidad  de  disco  1 54 1 ,  y 
la  lista  de  biblioteca  de  software  existente  en 

Pablo  del  Casar  Serrano 
Sor  Angela  de  la  Cruz.  10 
Madrid 

Publicamos  tu  carta  para  que  te  manden 
información  los  distribuidores.  Por  Javor,  y 
esto  va  para  todos:  So  nos  pidáis  catálogos, 
listas  de  juegos,  etc.  Soso  tros  no  disponemos 
de  esas  listas.  Hacedlo  a  las  casas  de  software. 
Sus  direcciones  suelen  aparecer  en  los  espacios 
de  publicidad. 


COMPUTERS,  S.A. 


¡¡PRECIOS 

ESPECIALES  PARA  COMERCIANTES!! 

COMMODORE  -  64 
COMMODORE  -16 
ZX  SPECTRUM  -  48K 
SPECTRUM  PLUS 
QL  SINCLAIR 

PERIFERICOS,  PROGRAMAS,  LIBROS  NACIONALES,  EXTRANJEROS,  ETC. 

6  MESES  DE  GARANTIA  PARA  ORDENADORES  Y  PERIFERICOS  I 
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El  duelo 


")  Es  un  juego  que  pone  a  prueba  tus  reflejos,  -TT:  /=&*  A  _ 

)  |  Tendrás  que  reaccionar  antes  que  f«  .  _  .  VZ  f  t  f)  TT* 

contrincante,  pero  tampoco  te  puedes  ,  Tjlí  A  |\f  n 

I  i  (  adelantar  mucho  porque  perderás 

puntos-  1 

*  ,  ffi]  flíSll 

•  n^SL  .  jf  \Sfiv ¡  w  I 


m  « 


ti  umwm\ 


íí1 a 


Por  David  I).  BLSCH  (Rl  .\.  l.t-.L  L  .) 

Te  apetece  poner  tus  reflejos  a  prueba  contra  los  del 
ordenador?  No  seria  muy  justo  — el  C  64  y  el  VIC-20 
son  capaces  de  contar  hasta  SO  antes  de  que  tú  puedas 
tocar  ni  una  tecla.  Los  ordenadores  son  menos  inteligentes 
y,  desde  luego  tienen  menos  capacidad  de  movimiento  que 
los  seres  humanos,  pero  si  les  das  una  tarea  sencilla  que 
realizar,  lo  harán  más  rápido  que  cualquiera. 

Entonces,  con  este  juego  puedes  poner  tus  reflejos  a  prueba 
contra  los  de  otro  ser  humano,  es  decir  realizar  un  duelo  y 
el  ordenador  actuará  de  padrino.  Esto  parece  más 
razonable,  ya  que  el  ordenador  no  tiene  preferencias  y 
podrá  calcular  la  velocidad  de  respuesta  más  rápido  que  tú. 
Te  puedes  aprovechar  de  la  velocidad  del  ordenador  sin  que 
ella  se  aproveche  de  ti. 

En  este  juego,  tú  y  tu  contrincante  tenéis  que  esperar  una 

señal,  que  indicará  que  los  dos  tenéis  que  intentar  a  pulsar 

la  tecla  que  le  ha  sido  asignada.  El 

jugador  de  la  derecha  tiene  que  pulsar 

la  tecla  1NST/DEL.  El  que  llegue  C'-fiA  v 

primero  se  lleva  un  punto.  y 

Una  vez  dada  la  señal,  si  tú  pulsas  _ _ 


Traducido  por  l  alerie  SHAMKS  y  adaptado  por  Alvaro  I BAÑEZ 

cualquier  otra  tecla  no  significa  ni  que  pierdas  tu  tumo  ni 
que  tengas  posibilidades  de  ganar.  Sin  embargo,  si  pulsas 
cualquier  tecla  antes  de  que  se  dé  la  señal  ¡¡AHORA!! 
pondrás  en  marcha  una  rutina  que  resta  un  punto  de  tu 
puntuación.  El  que  llegue  primero  a  diez  puntos  gana  el 
juego. 

Los  dos  jugadores  son  identificados  como  el  de  la  izquierda 
y  el  de  la  derecha,  y  las  puntuaciones  de  cada  uno  se 
almacenan  en  las  variables  PL  y  PR,  respectivamente.  En 
cada  partida,  el  ordenador  elige  un  tiempo  de  retraso 
aleatorio. 

En  vez  de  medir  los  “jiffies",  intervalos  de  1/60  de 
segundo,  el  ordenador  cuenta  desde  uno  hasta  un  número 
dado,  siendo  este  intervalo  de  tiempo  nuestro  tiempo  de 
retraso.  Para  este  juego,  el  ordenador  cuenta  al  azar  una 
cantidad  de  números  —más  de  500,  pero  menos  de  1 .500. 

_  Entonces  se  inicia  el  bucle  For...Next 

que  afecta  el  tiempo  de  retraso.  Cada 
VIC-20  vez  que  se  pasa  por  este  bucle,  el 

1  ^  ordenador  comprueba  para  ver  si 

_  alguien  se  adelante  y  pulsa  una  tecla. 
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Aunque  los  ordenadores  Commodore  pueden  hacer  uso  de 
varios  métodos  para  realizar  esto,  uno  que  no  se  utiliza  es 
hacer  un  Peek  en  una  posición  de  memoria  determinada. 

Lo  que  hace  este  juego  es  aprovecharse  de  un  truco  muy 
popular  de  programación  que  resulta  bastante  más  sencillo 
para  que  lo  pueda  comprender  el  principiante. 

Esta  técnica  es  una  linea  bastante  rara  de  Get  AS.  A 
diferencia  de  la  mayoría  de  las  lineas  Get,  esta  no  se  repite 
hasta  que  el  ordenador  pulsa  una  tecla.  La  forma  más 
común  es  la  siguiente: 

10  GET  AS:  IF  A$=“  “  GOTO  10 

Cuando  encuentra  una  linca  asi,  el  ordenador  busca  un  solo 
carácter  de  teclado  y  asigna  su  valor  o  la  variable  AS.  Si  no 
se  pulsa  ninguna  tecla,  AS  será  igual  a  nada,  o  un  “string” 
nulo.  Esto  también  se  expresa  como  dos  comillas  (“  “)  que 
no  encierran  nada. 

Normalmente,  el  ordenador  pasará  a  la  siguiente  sentencia 
del  programa.  Dado  que  el  C-64  y  el  VIC-20  repasan  el 
teclado  tan  de  prisa,  seria  muy  difícil  llegar  a  pulsar  una 
tecla  justo  en  el  momento  en  que  el  ordenador  pide  una 
entrada  de  datos.  Por  lo  tanto,  las  sentencias  Get 
normalmente  se  colocan  dentro  de  los  bucles,  como  el  que 
hemos  visto  antes. 

En  caso  de  que  AS  no  tiene  ningún  valor  (“  “),  que  seria  la 
mayoría  de  las  veces,  se  repetirá  la  linea  10.  AS  tendrá  un 
valor  solamente  cuando  se  pulsa  una  tecla,  con  el  resultado 
de  que  el  programa  pasa  a  la  siguiente  linea. 

Sin  embargo,  en  el  juego  “El  Duelo”,  el  ordenador  no  debe 
hacer  una  pausa  esperando  que  pulses  una  tecla.  Tiene  que 
seguir  contando  el  tiempo  de  retraso  elegido,  y  vigilar  a  la 
vez  que  no  se  pulse  ninguna  tecla.  En  vez  de  dejar  que  el 
ordenador  se  quede  colgado  en  una  línea,  podrías  escribir 
un  módulo  como  el  siguiente. 


100  FOR  N=  TO  DELAY 
1 10  GET  AS:  1F  AS  <  >  “  “  GOTO  140 
120  NEXT  N 
130  END 

140  PRINT  “DISPARO  DEMASIADO  PRONTO" 

Con  este  módulo,  el  ordenador  pasará  por  el  bucle 
For...Next  a  una  velocidad  normal.  Si  pulsas  una  tecla  al 
ejecutarse  la  línea  1 10,  el  programa  se  bifurca  a  la  linca 
140,  y  aparece  un  mensaje.  De  no  ser  así,  dado  que  AS  es 
igual  a  ”  ”,  el  programa  pasará  a  la  línea  120  para  repetir 
el  bucle.  Ya  que  cada  operación  se  realiza  tan  de  prisa, 
parece  que  el  ordenador  está  repasando  el  teclado 
constantemente,  aunque  está  llevando  la  cuenta  del  bucle  de 
retraso  a  la  vez. 

Esta  es  la  técnica  que  se  utiliza  en  “El  Duelo".  Se  incluye  la 
línea  Get  AS,  y  si  A$="  ",  el  programa  pasa  directamente  a 
Next  N. 

Sin  embargo,  si  AS  <  >  “  “,  el  programa  pasa  a  la  linea 
550,  comprueba  para  ver  quién  era  el  culpable  y  resta  un 
punto  de  su  puntuación.  Para  que  veas,  durante  el  bucle  de 
retraso  no  se  puede  pulsar  una  tecla. 

Si  el  bucle  llega  a  su  fin  sin  ninguna  interrupción,  la 
palabra  ¡¡AHORA!!  aparece  en  pantalla.  Se  inicia  una  señal 
acústica  dentro  de  un  bucle  más  largo  Get  AS.  Esto  se 
repite  hasta  que  se  pulsa  una  tecla.  El  código  ASCII  de 
dicha  tecla  se  almacena  en  la  variable  A. 

Si  la  tecla  de  flecha  a  la  izquierda  o  la  tecla  INST/DEL  ha 
sido  pulsada  el  programa  pasa  a  la  rutina  de  ganador.  De 
no  ser  así,  la  tecla  se  ignora  y  el  programa  espera  una 
entrada  aceptable. 

A  medida  que  tú  y  tu  contrincante  van  ganando,  se  van 
acumulando  puntos,  y  una  flecha  le  apunta  al  ganador  y  se 
sigue  jugando.  Al  final  del  juego,  se  anuncia  el  ganador. 


VIC-20  SIN  EXPANSION 


10  REM  ************ 

20  REM  *  * 

30  REM  *  EL  DUELO  * 

40  REM  *  « 

SO  REM  ************ 

60  MA-22 
70  P0KE36878. 15 
80  VQICE=36874 
90  80=255 
100  PRINT "[CLR 3" 

11 0  PR I NTT  AB  <  6  3  "  l  RVSGN  J  E  RED  3  EL  [  SPC  3  D 
UEL0  C  BLU  3  £ 2CR3RD I " 

120  PR I N  T " £  2SPC  3 CUANDO [ SPC 3 C RV30N ] AH 
ORA ! [ RVS0FF 3 C  2SPC  3 " 

130  PR I NT " [ CRSRD  3 [  SPC 3  APAREZCA , EL E  SPC  3 
JUGADOR" 

1 35  PR I NT "[ CRSRD  J [ SPC  3  DE [ SPC  3  LA [ SPC  3 
IQIJIERDAESPC3DEBE" 

1 4Ú  PR 1 N  T " £  CRSRD  3 [ SPC  3PULSAR [ SPC  3 [  RV3ÚN ] 
*-£  RVSÜFF  J .  C  SPC  ]  V  C  SPC  3  EL  C  SPC  3  DE " 

145  PR I NT " £  CRSRD  3 [ SPC  3 LH [ SPC  3  DERECMA 
t  SPC  3  L  RVS0N 3  INSTE RVSÜFF  3 “ 

150  PR  1  NT  "  1 2CRSRD  3 1  SPC  3  EL!  [  SPC  1  PR  I MER 
OLiiPL  JUUL" 

155  PR I NT “ [ CRSRD  3 1  SPC  3 LLEGUE  [ SPC  3 A  [ SPC 3 
10CSPC3PUHTÜS" 

157  PR I NT " [ CRSRD  3  C  SPC  3SERA [ SPC 3  EL C  SPC 3 
GANADOR! I" 

160  PR I NTTAB  •,  4  > "  £  CRSRD  3  [  RVS0N  3 [ C VN  3  P 
ULS A [ SPC  3  UNA  [  SPC  3  TECLA  C  BLU  3  " 

170  GETAí ; 1FHÍ=" "THEN170 

ISO  PR I NT " £  CLR  3 [ 2CRSRD 3 " ; T  AB<  2) "PULS 

A  £  SPC  3  RETURN [ SPC  3 PARA " 

190  PRINTTABC23 "SEGUIR. " 

200  INPUTAí 
210  PRINT" ECLR3" 

220  IFPL>9ORPR>9THEN630 


230  DELAV=RND< 13*1000+500 
240  F0RN=1TÜDELAV 
250  GETAí  I FASO"" THEN550 
260  NEXTN 

270  PRINT" C3CRSRD3 ", TAB<MA/2-43, "CRVSÚN3 
C  BLU  3  AMÜRA ! £  BLU  3 " 

260  GETAI 

290  P0KEV0ICE. SO 

3O0  POKEVÜICE.0 

310  I FAí = “ " THEN280 

320  A=ASC<Aí 3 

330  I FA=95ORA=20THEN350 

340  6ÜT0280 

350  IFA-=95THEN450 

360  REM 

370  PR I NT " [ CLR  3 [ 2CRSRD 3 " 

380  PR=PR+ 1 

390  PRINTTABi. 43  “  IZQUIERDA  :  “.PL 
400  PRINTTAB'.4;"DERECHA  ",PR 
4 1 0  PR  I  NT  T  HB «.  4  / "  £  2CRSRD  3  GANADOR  C  SPC  3 

[ RVSÚN  3  E  RED  3 - >  £  RVSQFF 3 [ BLU  3 " 

420  Aí=" " 

430  F 0RN= 1 T 0 1 000 ; NEXT 
440  GOTO 180 

450  PR I  NT " [ CLR 3  C2CRSRD 3 " 

460  PL=PL+1 

470  PRINTTABÍ4) " IZQUIERDA : “,PL 

480  PRINTTAB <43 "DERECHA  ".PR 

490  PRINT" [¿CRSRD 3 [RVSÚN 3 [RED 3 " , TAB< 

4  3  "  < - [  RVSOFF  3  [  BLU  3  [  SPC  3  GANADOR  " 

500  PRINT "[¿CRSRD 3" 

510  I FAí O " " T  HEN420 
520  I  FAíO  "  “  THEN52Ü 
530  FÚRN= 1 T0 1 000 ■ NEXT 
540  GOTO 180 
550  A=ASC<Aí 3 
560  IFA=95ORA=20GOTO580 
570  G0T0260 
580  IFA=95THEN600 
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590  GGTO630 

¿00  PR I  NT " £  CRSRD  3  E  SPC  3  EL  £  SPC  3  JUGADOR 

[SPC3E  RVSGN  JCREDK - 1 RVSOFF  3  £  BLU  3  " 

PR 1 NT “ £  CRSRD  3  £ ¿PC  3  D I SPARO E  SPC  3  DEMAS I 
ADÚ" 

¿10  PRINT"ECRSRD3£¿PC3PRONTÜ! “  PRINT 
" £  CRSRD  3  E SPC  3  P I ERDE  C  SPC 3  UN [ SPC  3  PUNTO 
. " PL=PL-1 
620  GÜTO660 
630  PR=PR-1 

¿40  PR IHfC CRSRD 3 1 SPC  3 EL t SPC 3 JUGADOR 

£  SPC  3  £  RVSON  3  £  RED  3 - >  t  RVSOFF  3  C  BLU  3 " 

PR I NT " C  CRSRD  3  C SPC  3  D I ¿PARO  £  SPC 3  DEMAS I 
ADO" 

¿50  PR 1 NT ” [ CRSRD 3 [ SPC 3 PRONTO ! "PRINT 
" £  CRSRD  3  £  SPC  J  P I ERDE  C  SPC  3  UN  £  SPC  3  PUNTO 
. "  PR=PR-1 

¿c.0  PR  I  NT T AB  <  6  ) "  C  2CRSRD  3  C  RVSGN  3  £  C VN  3 
PUL  SA  £  SPC  3  UNA  ESPC3TECLAEBLU3 " 

670  GETA*IFAi=" “THEN670 
680  GOTO 160 

¿90  PRINT" £CLR3£2CRSRD3" 

70Ó  I FPL>9 THENPR I NT "EL [ SPC 3 JUGADOR C SPC 3 

£  RVSON  3  £  REDX - [  RVSOFF  3  C  BLU  3  £  SPC  3  GA 

NA  I " : GOTO720 

710  PR I NT “ EL  E  SPC  3  JUGADOR £  SPC  3  £ RVSÜN  3 

[ RED  3 - >  t RVSOFF 3  £  BLU  3  E  SPC  3 GANA ! " 

720  PRINT" t2CRSRD3" 

730  PR I NT " OTRA  £  SPC  3  PART I DA? " 

740  INPUTBí 

750  IFLEFTí (Bí < 1 )“"S"THENRUN 


10  REM  ************ 

20  REM  *  * 

30  REM  *  EL  DUELO  * 

40  REM  *  * 

50  REM  ************ 

60  MA=40 
70  P0KE5328 1 >  1 
100  PRINT" CCLR3" 

1 10  PR1NTTABC17) “ IRVSON3 [RED3ELESPC3 
DUELO  C  BLU  3  C  2CRSRD  3 " 

120  PR I NTT AB  C 8  > " 1 2SPC 3  CUANDO  £ SPC  3  C RVSON  3 
AHORA IC RVSOFF 3 C2SPC3" 

130  PR  I  NT  1 HB tí  > "  C  CRSRD  3  C  SPC  3  APAREZCA 
, EL CSPC 3 JUGADOR" 

1 35  PR 1  NT  T AB < 8  > “ C  CRSRD  3  C  SPC  3  DE  £  SPC  3 L 
A I SPC 3 I QU I ERDA C SPC 3 DE BE " 

1 40  PR 1  NT T AB ( 8 > " C CRSRD 3 [ SPC 3 PULSAR [ SPC 3 
£  RVSON  3  <-£  RVSOFF  3 .  £  SPC  3  Y  £  SPC  3  EL  £  SPC  3  D 

145  PRINTTAB<8> " CCRSRD3 [SPC3LACSPC3D 
ERECHA I SPC  3  C  RVSON  3 1 NST C  RVSOFF  3 " 

150  PRINTTABí 8) " £ 2CRSRD 3 C SPC 3 EL £ SPC 3 
PRIMERO! SPC  3  ÚUE " 

155  PRINTTÁB'iS)  "  [CRSRD  3  CSPC  3  LLEGUE  CSPC  3 
AESPC3 10ESPC3PUNTOS" 

157  PR1NTTAB(8> " [CRSRD 3 CSPC 3 SERA CSPC 3 
EL  C  SPC  3  GANADOR ! ! " 

1 60  PR 1 NTT AB  a  5  > " C  CRSRD  3 [ RVSON  3  C  C VN  3 
PULSA  £  SPC  3  UNA  C  SPC  3  TECLA  C  BLU  3 " 

170  GETAí : IFAí*" "THEN170 

180  PR 1 NT " [ CLR  3  C  2CRSRD 3 " , T  AB  C  2 > “ PULS 

A  C  SPC  3  RETURN C  SPC  3  PARA " 

190  PRINTTAB<2> "SEGUIR. " 

200  INPUTAí 
210  PRINT" CCLR3" 

220  I FPL>90RPR>9T  HEN690 
230  DELAV=RNDO)*1000-*-500 


240  FÚRN=1TÜDELAY 

258  GETAí  IFA$O”"THENS50 

260  NEXTN 

270  PR 1 NT " [ 3CRSRD 3 " , T AB ( MA/2-4; , " [ RVSON  3 
[ BLU  3  AHORA ! C  BLU  3 " 

260  PÜKE54296j 15 
290  PÚKE54273.1 
300  GETA# 

310  POKE54296.0 

320  IFAÍ=" "THEN280 

330  A=ASC<A4;  IFA-95ORA»20THEN350 

340  GOTO260 

350  I FA=95THEN450 

360  REM 

370  PR I NT " C  CLR  3  £  2CRSRD 3 “ 

380  PR=PR+1 

390  PR INTTABC  4 ) “ I ZOU I ERDA ■ " . PL 

400  PR I NTTAB ( 4  > " DERECHA  " . PR 

410  PRINTTAB<4)"C2CRSRD3 GANADOR  £  SPC  3 

[RVSON 3 [RED 3 - >C RVSOFF  3  £  BLU 3" 

420  A$="u 

438  FÚRN=1TO1000;NEXT 
440  GOTO 180 

450  PR I NT " £  CLR  3  C  2CRSRD  3 " 

460  PL*PL+ 1 

470  PR1NTTAB(4> " IZQUIERDA  " . PL 

488  PRINT TAB <4 ) "DERECHA  ",PR 

490  PRINT" C2CRSRD3 C RVSON 3 [RED 3 " , TAB( 

4>"< - [RVSOFF  3  C  BLU  3  £  SPC  3  GHNADOR “ 

500  PR I NT " £  2CRSRD  3 " 

510  IFAiO"  "THEN420 
520  IFHíO" "THEN520 
530  F ORN= 1 TÜ 1 000 : NEXT 
540  GOTO 180 
550  A=ASC(AÍ) 

560  I FA=95ORA=20GOTO580 
570  GOTO260 
560  IFA=95THEN¿00 
590  GOTO630 

¿00  PR I NT " £  CRSRD  3  £  SPC  3  EL  £  SPC  3  JUGADOR 

£  SPC  3  £ RVSON  3  £  RED  3  < - £  RVSOFF  3  C  BLU  3 “ 

PR I NT " £  CRSRD  3  £  SPC  3  D I SPARO  C  SPC  3DEMAS I 
ADG" 

610  PRINT "CCRSRD 3 CSPC 3 PRONTO! "PRINT 
" [ CRSRD  3  C  SPC  3  P I ERDE  £  SPC  3  UN  £  SPC  3  PUNTO 
." :PL=PL-1 
620  GOTO660 
630  PR=PR-1 

640  PR I NT " £  CRSRD  3  £  SPC  3  EL  £  SPC  3  JUGADOR 

£  SPC  3  £  RVSON  3  £  RED  3 - >  £  RVSOFF  3  £  BLU  3 " 

PR I NT " £ CRSRD  3  £  SPC  3  D I SPAkO£  SPC  3  DEMAS I 
ADÚ" 

65ü  PR I NT " £  CRSRD  3  £  SPC  3  PRONTO  I"  PR I NT 
" £  CRSRD  3  £  SPC  3  P I ERDE  £  SPC  3  UN  £  SPC  3  PUNTO 
. " :PR=PR-1 

660  PR I NTTAB  <  6  > " £  2CRSRD  3  £  RVSON  3  £  CVN  3 
PULSA  £  SPC 3 UNA £  SPC  3  TECLA  £  BLU  3 " 

670  GETAí  IFA*-""THEN670 
680  GOTO 160 

690  PR I NT " £  CLR  3  £  2CRSRD  3 " 

700  I FPL>9THENPR I  NT " EL  £  SPC  3 JUGADOR  £  SPC  3 

[ RVSON  3  £  RED  3  < £  RVSOFF  3  £  BLU  3  £  SPC  3GA 

NA ! " : GQTQ720 

710  PRINT " EL  £ SPC  3  JUGADOR  £  SPC  3  £  RVSON  3 

£  RED  3 >  £  RVSOFF  3  £  BLU  3  E  SPC  3GRNA !  " 

720  PR I NT " E  2CRSRD  3 " 

730  PR I  NT " OTRA  £  SPC  3PART I DA? " 

740  INPUTBí 

750  IFLEFTÍCBÍ. 1 )="S"THENRUN  WARE 


-  I 
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EXCURSION  POR  LA  MICROPROGRAMACION 

Cursillo  de  Lenguaje 
Máquina  -I*- 


Seguimos  con  ejemplos  prác¬ 
ticos,  y  en  éste  numero 
vamos  a  ver  un  ejemplo  en 

el  que  le  añadimos  nueve  coman¬ 
dos  para  manejo  de  gráficos  a 
C-64P  No  he  preparado  otro  pro¬ 
grama  para  el  VIC  20  ya  que  no 
pretendo  publicar  pr°g™™spara 
los  dos  por  Igoal.  •*> 

SoPS«."UoSa.-^*' 

poner  de  alguna  ampliaaón  de 

configuración  de  memoria,  pero 
podrán  interceptar  la  rutina  de 
error  del  interprete  Basl5  ^ ua  ¡ 
cuier  otra  rutina  para  añadir  sus 
comandos,  el  resto  de  las  ideas  y 
rutenas  sirven  perfectamente  para 
el  V1C  (relazándolas  natu- 

^Unode  los  detalles  que  hasta  el 
momento  no  hemos  visto  y  que 
aparece  en  el  listado  del  codigo 


fuente  de  este  Programa  es  lauti- 
liTiación  de  los  MACROb.  con 
tomacros  y  un  ensamblador  que 
nos  permita  utilizarlos  (como  el 
Magro*  Assembler  do  Coojmo- 
dore  que  distribuye  Micro  tlec 
trónica  y  Control),  podremos 
ahorrar  tiempo  al  teclear  u" 

grama  con  diterenles  paramemos 
tecleándolo  sólo  una  vez  y  luego 
llamando  al  macro. 


j 


La  definición  de  macroinstruc- 

ción.nosdicequeesuna.nstuc- 

ción  en  lenguaje  fuentc  que  js 

rsss 

ui.Sn'pnne“df.sJieitoí  valm 

^rír'memStaW 

instrucciones  correspondientes  Ln 

los  manuales  de  los  ensamblado- 

'“s  que  permiten  m¡lim.m.ero.; 

vienen  explicados  más  deta  la 
damente.  Con  palabras  sencillas, 
el  macro  es  una  ‘‘espec.cde 
subrutina”,  que  Pe«J“**'S? 
rutinas  similares  a  ella  en  cual 
quier  punto  de  un  programa 
pero  la  subrutina  generada  es 

SStinta  según  los  parámetros  que 

se  utilizan  al  llamar  al  macro. 


A  continuación  paso  a  la  t.~ 
ducción  del  artículo  original  de 
Richard  Holleran,  publicado  en 
Mcrocomputing  EE.UU.  (Marzo 

1984). 


Saca 

tu 

C-64 
de  su 
cencha 

Añádele  nueve 
comandos  del  Turtle 
Graphics  al  repertorio 
de  tu  Commodore  64 

Par  Richard  HOLLERAN 
(Microcomputing  EE.UU.) 

T^d¿íd¿Tád¿pñd<! 
par  Piteo  ROMERO 


Existen  dos  aspectos  inte¬ 
resantes  en  mi  programa 
de  gráficos:  lo  que  es  y 
cómo  lo  hace.  Este  programa 
añade  nueve  comandos  del  Turtle 
rtranhics  al  Commodore  o*. 

SÍendo  Dmw.  Mol,  Move 
Left  y  Right.  Cuando  ejecutas  el 
programa,  coloca  las  rutinas  de 
lenguaje  máquina  en  la  parte 
superior  de  la  memona,  dejando 
unos  21  Kb  de  memoria  libre. 

Como  probablemente  sabréis, 
el  Turtle  Graphics  es  una  confi¬ 
guración  muy  popular  de  grafi 
eos  por  ordenador  en  el  cual  una 
•‘tortuga”  (turtle)  (real  o  imagi¬ 
nariamente  representada)  es  pro¬ 
gramada  para  moverse  por  la 
pantalla,  dejando  rastro  via¬ 
ble  tras  de  si.  En  m.  venaón  la 

tortuga  es,  desafortunadamente, 
imaginaria. 


Un  vistazo  a  lo*  comandos 


El  comando  DRAW  inicializa 

SER  también  fija  los  colores 
?Zul  oscuro  de  fondo  y  azul  claro 

P*aiuxbpír¡»i>'  p«*  *  '• 

grifaos  (OR«  1)  » 

es  útil  si  quieres  volver  a  ver  lo 

el  ordenador  pasará  al  modo  de 

texto  que  nos  lo  indicará. 

COLOR  X.  Y  permite  escoge 
el  color  de  la  panBÜla  y 
dibujo.  Por  ejemplo,  COLOR 
6,14  fija  dibujos  azul  claro  sobr 
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LINE»  LOC  CODE 

O00O1  S000 

00002  O000 

00003  000? 

00004  0000 

O0005  0000 

00006  0000 
0000?  0000 
O0008  O®00 

O0009  O000 

00010  0000 
00011  0000 
00012  0000 
00013  0000 

00014  0000 

00015  «Ó00 

00016  0000 
00017  00°0 

00018  0000 
00019  0000 

00020  O000 
00021  0000 
0O022  0000 

00023  0000 

00024  0000 

00025  0000 

0002b  0000 

00027  0000 


LINE 


00029 


00030 

0000 

00031 

0000 

00032 

0000 

00833 

0000 

00834 

0000 

00035 

0000 

00036 

0000 

00037 

0000 

00838 

0800 

00039 

8800 

00040 

0000 

00041 

0000 

00042 

0000 

00043 

0000 

00044 

0000 

00045 

0000 

00046 

0000 

00047 

0000 

00048 

0000 

00849 

0000 

00050 

0000 

00051 
00052  0000 

O0053  O000 

00054  0000 

00055  0000 


SÉS88SB.” 

mm' 

VrtLOR  v,HÍÍSL(3«?¡/2> 

m  COK»»!» 

■JAI  GR  PARA  '  SQUARE 
S?ÍLIZRD0  PRRR  .DRHW 
PRRR  CALCULHR  dx 
para  CHLCULHRDV 
USADO  PARA  MOVE 

fefflBSW 

IhTRR  DOS  VALORES 

S'S*. 

FAC#1  A  MEMORIA 
entero  A  REAL 

cf&“» 

i 

;  BVTE  ALTO 

■ 

•  BVTE  alto 

;  pñSA  FACC*1  A  MEMORIA 
;  pftSA  MEMORIA  A  FAClll 


DX 

DV 

XCOR 

VCOR 

CURANG  ! 

STARTX 

startv 

STARTA 

degrad 
SQUARE 
COLOR 
FINDDX 
F1NDDV 
PL0T1  ■ 
IGR0  * 
IGR1 

FLAG  ■ 
TABLE  = 
BITVAL  = 
CHRGET  * 
1 ERROR  ■ 
READV  > 
LET 

EVALEX  > 

fixflo 

INPUT2 

PLUS 

MULT 

memfac 
facmen 
flofix 
COSI he 
SINE 


$8000 
$8005 
$800A 
$800F 
$8014 
$8019 
i  $80 1E 
>  $8023 
:  $8028 
.  $802D 
*  $6061 
■  $8085 
«  $80A4 
a  $8067 
=  $8047 
=  $803F 
=  $97 
=  $8227 
$82 1F 
$0073 
$A43B 
$A474 
$A9A5 
$AD9E 
»  $B391 
:  $B7EB 
.  $B867 
=  $BA2S 
b  $BBA2 
=  $BBD7 
=  $BC9B 
*  $E2b4 
B  $E26B 


.MAC  XLOVHI 

ldx  #<?1 
ldv  *>?I 

.MND 

.MAC  ALOVHI 

lda  »C?1 
ldv  #>?I 
.  MND 

.MAC  URDATE 
XLOVHI  ?1 
JSR  FACMEN 
.MND 

.MAC  FETCH 
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dola  X  grados  en  comra  de  las  gen  del  eje  a  jsd^O  ^¡btídad de hafer  un “POKE" 

agujas  del  reloj.  RIGHT  X  tiene  eje  y  es  de  0  a  99.  El  punto  O»  ^  medio  de,  programa  que  se 

un  efecto  similar  pero  en  sentido  situado  en  la  t  q  á  ejeCutando.  Sin  embargo 

horario.  izquierda  de  I la  pant. #jj  AW  gua.  ^  ^  de  pLOT  cualquier 

PLOT  X,  Y  te  permite  activar  que  en  el  comando  MU  ,  valor  fuera  del  margen  de  un  byte 

puntos  individualmente.  El  mar-  puntos  fuera  de  la  pantalla  no 


LINE#  LOC  CODE 


ftUOVH I  ?1 
JSR  MEMFRC 
.MND 

.MAC  ADD 
flLOVHI  ?1 
JSR  PLUS 
.MND 


.MAC  MULPLY 
ALOYHI  ?1 
JSR  MULT 

n-  ¿“el  primer  parámetro  de  una 

.>'  el  RETO 


;  SUMA  MEMORIA  A  FAC#1 


MULTIPLICA  el  fac#i 
POR  LA  MEMORIA 


.BYTE  $30. $36 < *32 a  1 


;  10  SYS  2062 
INIT  LDA  #$37 
STA  *0l 
LDA  #*A0 
STA  SFC 
LDY  #$00 
STV  *FÉ 
LDA  C*FB)<Y 
STA  É$FB>/Y 
INV 

BNE  L00P1 
INC  *FC 
BIT  *FC 
BVC  L00P1 
LDA  #*36 
STA  *01 
LDA  #$81 
STA  *0301 
STA  *0312 
STA  *A80ó 
LDA  #*C4 
STA  *0300 
LDA  #$D2 


,  HABILITA  ROM  BASIC 
;  PUNTERO  A  ROM 


i  TRANSFIERE  EL  BASIC 
,  DE  ROM  A  RAM 

,  CUANDO  *FC  CONTIENE  #*C0 
;  que  ES  EL  FINAL  DE  BAoIC 
;  ENTONCES  NO  SALTA. 

HABILITA  EL  BASIC  EN  RAM 
BYTE  ALTO  DE  VECTOR 

vItorR'de  rutina  usr 
nuevo  analizador. 

,  BYTE  BAJO  DE  ERROR 
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(0-255) 

.  quantii 
Ele 
mover 
linea, 
LUP: 

JV  * 

^  «»  '  00 
"r— ^  00 

<v .  '  dú 

P  00 

<Cr  00 

*WV?  üi 
v  ^  0' 

^  s 

|B 

§ 

| 

t 


EXCURSION  POR  LA  MICROPROORAMACION 
EXCURSI»  ianto  no  puede  ser  Util  izado 

r  de  “¡Ilegal  TA1LDOWN  baja  nuevamente  el  desde  Basic. 

(0-255)  causa  un  erro  ••lápiz”  de  la  t°pu8f  •  coman-  Encuadrando _ 

^SandoTAlLUP^Úte 

mover  la  tortuga  sm  dibujar  dDOWN,  pero  pendowncont.  dcs  ulilizar  la  función  U 

S  PMOTE1»  Ér»~«<'o  I  «—*>  >»“  END-  »  P _ _ 


une*  loo  cüde 


00160  083D  SD  U 

85  11 
S8  H  1  i 

00105  0349  en 

I  00106  0S4B  85  FD 
00107  084D  A9  ^ 

00108  034F  g  ^ 
001 0'9  ^|51  g  J1 
00110  ^3  u3  p 
001H  0S5^  B1  M 
00112  0S57  91  Fl 

O0113  0853  9®  c, 

00114  085A  Wp 

00115  08£  |¿  F 

00116  ü8jE  Ee. 
00117  08o0  \ 

00118  0862  W  6 
00118  0864 

00120  08bo  H2  ; 
00121  086®  ”2  ‘ 
00122  086A  1| 
00123  0®6B  i® 
00124  086b.  4L 

00125  0871 

i  •  00126  0871 

00127  0671 

)  00128  0871  8o 

00128  0o72  Ib 

)  00128  0873  60 

'  00128  0874  60 

1  08123  8875  » 

*  00128  0676  87 

_  00129  0877  4c 

3  O0129  8878  8^ 

00129  8879  ®k 

¿  00129  0878  uv 

00130  06- i  “ 

2  00130  887C  y 

00130  83711  | 

}  00130  067E  | 

**  00130  087F  F 

^  i  00131  0880  < 

P  00131  8881  k 
*  00131  0882  f 

P  00131  8883  • 
~  i  00131  0884 

_?  I  00132  068^ 

*  00132  0886 

5  00132  0887 

V  00132  0888 

T>  00132  0889 

T  00133  0|8H 

->  l  00134  0888 


LDA  # 
STA  * 
LÜ0P2  LDRC 

INV 

bhe  i 


;  UVTE  BAJO  DE  RUTINA  USR 
;  evTE  BAJO  DEL  ANALIZADOR 
j  PUNTERO  de  destino 

,  PUNTERO  R  CODIGO 
,  FUENTE. 

;  MUEVE  el  CODIGO 
,  AL  DESTINO 


mueve  tres  paginas 

,  EN  TOTAL.  NUEVO 

:  fs  r^  la^rutina^kerhÁl 


.BVTE  *63,*1F,*00' j 


3  EN  COMA  FLOT. 


.bvteis7...í.— «■-■p9ENC”*floWTE 

,ÍVTE  ‘3/2>‘p1 
.BVTE  *7B,  Í0E. *FR, *35, *12  1  P1/l80 

.BVTE  *80, *40, *8®' *00'*00  '  ’75 


64/Commodore  World  Enero  1985 


EXCURSION  POR  LA  MICROPROGRAMACION 


para  “encuadrar"  (square)  un  por  ejemplo: 

dibujo  en  la  pantalla.  Dado  el  draW:  FOR  T-l  TO  4:  MOVE 

formato  de  los  puntos  generados  90;  LEFT  90:  NEXT 

por  el  C-64,  las  lineas  honzonta-  De_endiendo  de  tu  monitor, 

les  y  verticales  de  igual  magnitud  Ppuede  parecerse  más  o 

no  son  de  igual  longitud.  Prueba  «to  pueu  r 


menos  a  un  cuadrado.  En  mi 
monitor  se  parece  a  un  cuadrado 
cuando  la  línea  en  el  eje  Y  es  tres 
cuartos  de  la  magnitud  del  eje  X. 
Por  tanto,  el  valor  por  defecto 
para  USR  es  0,75. 
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EXCURSION  POR  LA  MICROPROGRAMACION 

===^ - ”  ro  rama  para  Cómo  funciona 

j-jücra:  sn 

=«0  rrr 

tres  el  valor  que  necesitas,  puedes  _ _ _ _ 


UNE*  LOC  CODE 


00225  090* 

00232  030D 
00236  09 11 

00237  0914 

00238  0914 

00233  0914 

00240  0914 

00241  0917 

00242  0913 
i  00243  0911 

00244  0911 

00245  0911 

00246  092 

00247  092: 

00248  092 
00249  092 

00250  092 
00251  092 

00252  09/ 

00253  092 

00254  0?. 

00255  09. 

00256  09' 

00257  09 

00258  09 
00259  09 

00260  09 
00261  03 
00262  0i 
00263  0 

00264  0Í 
00265  0- 
00266  0' 
00267  0 

00268  0 
00269  0 

00270  C 
00271  e 
,  00272  i 

00273  i 
.  00274  i 

1  00275  i 

.  00276  1 

>  00277 
00278 

>  00279 
00280 

)  00281 

00282 
}  00283 


IJPDATE  CURANG 
JSR  CÚálNE 
URDATE  DX  ' 
FETCH  CURANG 
JSR  SIME 
l'IULPLV  SQUHRE 
XL0VH1  DV 
JMP  FACMEN 


DX=COS<CURANG> 

DV»SIN(CURANG>#SQUARE 

ACTUALIZA  DV 


entra  coordenadas  | 

ALMACENA  VCOR  pone 

1 

,  NO  LO  DIBUJA. 


'  JSR  IHPUT2  l  ISeSTcOR 

STX  402  '  vC0R=199-VC0RJ 

LOA  #*C7  '  ORIGEN  DE  LA 

SBC  SU2  '  |^lñ  LH  IZQU 

STA  ■  «COR  EN  *14, *15 

LDH  Í15  '  ESTft  pUEl 

S  5Sei  :  NO  LO  DIBUJA. 

bne  notük 
LDA  *14 
CMP  #*40 
BCC  QK 

NOTOK  RTS  .  Si  vCOR  ESTA  FUERA  DE 

OK  CDA  J028  PANTALLA  NO  LO  DIBUJA. 

BCSNOTOK  NTQ  CORRECTO 

•  SRSr?fl;l2iSfs!oUIENTE8ECUf1C,0 


i  BVTE-VAND7  . 

AND  #*07 
TAV 

LDA  #*00 
STA  *FC 
LDA  *02 
AND  #*F8 
ROL  A 
ROL  *FC 
ROL  A 
ROL  *FC 
ROL  A 
ROL  *FC 
STA  *FB 
LDX  *FC 
ROL  A 
ROL  *FC 
ROL  A 
ROL  *FL 
ADC  *FB 
STA  *FB 
TXA 

ADC  *FC 
ORA  #*60 
TAX 


V  GUARDA  EL  ¿VTE 


;  guardacalor  intermedio 


'  SUMA*1  BVTe'bAJO  WWV/D* 
i  ^UBMATLARLBTA?E  <*6000) 
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EXCURSION  POR  LA  MICROPROGRAMACION 

-  i  «  cada  uno  nuevo.  Comencé  mi 

— — p«* ísx  ss:  gajssss» 

.(ortuMd.""»»  "  “í“c  <2£  modificar  los  comandos  y  vecto-  F=™  J  1  d.  DBF  FN  o 
cucion  del  intérprete  j  res  para  satisfacer  tus  necesid  VER1py  por  citar  sólo  un  par 

método  podría  utilizarse  en  "M*  problema  es  que  pierdes  VE^Üo..  De  modo  que 

VIg'n2ldo  mejor  es  copiar  la  un  comando  de  los  existentes  por 


LINE*  LCIC  CODE 

00284  055C  85  U 

00285  095E  ||  F 

00286  O3b0  g  F 
00287  8?b2  «5  F! 

00288  U9fa4  88 
00289  0?65  g  1 

O0290  0967  ®“  , 

00291  09|9  g 

00292  09bB  29  0 
00293  03oD  HH 
00294  09bE  D  r 
00295  097ü  IB 

00296  0973  91  f 
00297  0975  60 

00298  097° 

00299  0976 

00300  0976 
00301  0976  83 

00302  0978  85 

00303  0978  20 

00304  097D  80 

00305  097F  B9 

0030b  0982  99 

00307  0985  8o 

00308  098o  D0 

00309  0988  84 

O0310  0988  89 

00311  098C  85 

003! 2  09|E  9c 

00313  098F  91 

i  00314  0991  C 

00315  0992  Di 

i  00316  0994  Ei 

00317  0996  1 

a  00318  0998  2 

'  00319  099B  2 

.  00320  093E  *1 

*  00321  0981 

00322  0981 

3  00323  0981 

00324  0981  E 

,5  00325  0983  « 

I  00326  8385  . 

i  00327  0988  1 

**  00328  0988  ' 

-  I  00329  098B 

P  00330  098B 

.  00331  098B 

■?  00332  098B 

r  00333  098E 

5  I  00334  09B0 

*  00335  09B2 

5  |  0033b  09B5 

T  00337  09B7 

}  I  00338  09B9 


LDA  *14 
AND  #*F8 
ADC  *FB 
ST8  *FB 
TX8 

8DC  *15 
ST8  *FC 
LD8  *14 
AND  4*07 

LDA  <*F*>.V 

gs 

RTS 


i  gjMABYTE  B8J0  1NKX/8) 
j  SU118  BYTE  ALTO 


;  x  GÜ8RD8  EL  BIT 
;  SELECCIONA  EL  BYTE 
i  HCTIV8  EL  BIT 


*  LD8  1 

ST8  1 
JSR  l 
LDV 

INITXY  LD8 
STR 
DEY 
ENE 
STY 
LDA 
ST8 
TY8 

CLERR  STR 


#*E6 

*LhG 

COLOR 

#*0F 

l  ST8RTX-1 <  Y 
I  XCOR-liV 


#*E6=AZUL  CLARO  SOBRE 

fondo  oscuro. 

BRJR  LAPIZ. 

;  FIJA  XCORcVCOR 
;  v  EL  ANGULO 


;  PUNTERO  8  R8NT8LL8 
;  BORRA  pantalla 


BPL  CLEAR  enwE  CERO  EN  FACttl 

S  ÍSK  í  j^-SUEJi  ORflFICfi 

JMP  IGR1  '  RCT‘  I 

■WL  «ss.  :«W.!nHT0"E'u 

RTS 


JSR  EVALEX 
LDA  *66 
BNI  DONE 
JSR  FLÜFIX 
LDX  *65 
LDA  *64 

beq  short 


¡  entra  longitud  a  mover 
,  SI  ES  NEGATIVA  vuelve 

;  SI  'MOVE  511''  X=**FF 
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EXCURSION  POR  LA  MICROPROGRAMACION 

a  r,  fun-  una  nueva  rutina  de  evaluación 
¿  .  palabra  clave  (comando  o  tun  mite  añadir  nuevas  pala- 

eSCclnT  Seas  una  linea  de  ción)  pero  no  lo  encuentra  brafdave  aunquc  tú  no  lasco m- 

Cuando  tecleas  asume  que  se  trata  de  un  Lbt .  y  ¿  las  convertirás  en 

Basic  y  pulsas  Ktlum.ax  ,a  ltt  a  ejecutar  la  rutina  LET.  P»  '  rutina  no  dismi- 

prete  basic  evalúa  la  «-ea  Y  la  ^  Hasta  ahora  es  asi.  Cambiando  de  ejecución  de 


I  LINE#  LOC  •  COBE 


00339  09BB  ñ'j  F 
00340  09BB  E8 
0034 1  09  BE  ó-j  1 

00342  09C0  6b  1 

00343  09C2 

00350  09C9 

1  00357  09B0 

00364  09D7  2U  - 

00365  09DA  8b  ' 
00366  09  DC  H4  < 

00367  09 BE  64 

00368  09E0  8& 
00369  09E2 

00376  09E9 

00383  09F0 

00390  09F7  ¿jJ 

00391  09Fñ  He, 
00392  09FC  B0 
00393  09FE  86 
00394  0H00  »6 

00393  0802  A5 

00396  0804  FU 

00397  UH0b  20 
00398  0809  85 

00399  Ú80E 
00400  080B  Ee 

00401  080F  1« 

00402  0810  ?k 

00403  08! 2  8t 

00404  0814  Ft 

00405  0816  L' 

00406  0813  1' 

00407  0819  9i 

00408  00 IB  6 

00409  00 1C 

00410  081C 
00411  0816 

00412  0816  k 

00413  001 B  e 

00414  081F  - 

00413  0820  • 

>  00416  0823  < 

00417  0024  ' 

)  00413  0827  1 

00419  082H 

,  00420  0828 

*  00421  0828 

.  00422  0828 

>  00429  0831 

00430  0834 

5  00431  0834 

00432  0834 

5  00433  0834 

00434  083b 

2  00435  0838 


l_BH  #*FF 
1NX 

SHORT  gRJ» 

next  fetch  xcor 
0BB  DX 
UPB0TE  XCuR 
JSR  FLÜFIX 
LBX  *65 
LBY  í 64 
STV  *15 
STX  *14 
FETCH  YlOR 
0BB  BV 
UPB0TE  ycor 
JSR  FLOFIX 
LBX  *64 
BNE  HEXT1 
LBX  *65 
STX  *02 
LBH  FLAü 

leo  next 1 

JSR  PL0T1 

NEXT1  igüéxre 

BEC  *19 
CLC 

STEP  BCC  NEXT 

BEC  *18 
CLC 

BCC  STEP 
TiONE  RTS 


BM1  NOERR 
PH0 

JSR  IOR0 
PL0 

JMP  I ERROR 
HOERR  REftDV 


PERO  SE  INCREMENTO  0  #*00 

ES  INSOSPECH0BLE. 

,  XCOR=XCOR+BX 


;  lo  GU8RBH  P8R8  PLOT' 


,  VCOR=VCOR+DY 

;  EL1MIN0  YC0R>255 


SI  EL  LAPIZ  EST8  LEV0NT8BO  I 
!  NO  PINTA 


UPB8TE  SQU8RE 
JMP  FINBBY 


'  LBX  #*0O 

LBY  #*00 

SE8RCH  LB0  (*78)-Y 


;  VUELVE  8  PANTALLA  BE  TEXTO 
F-ARH  V I SU0L I ZHR 
'  MENSAJE  be  error. 


•  NUEVO  VALOR  BE  CUABRO 
,  EL  BE  'DY' 
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EXCURSION  POR  LA  MICROPROGRAMAC.ON 

- — -  fu  Necesitarás  un  monitor  d 

v,  f/i  cualquier  momento  máauina  o  un  ensarno 


„  s.  cualquier  momento  tu 

las  palabras  basic  normales  excep-  .  doT  rechazase  los  nuevos 

sür-íí^B 

SSSS.SSS'ET  SE*  k 

palabras  es  sólo  un  pequeño  des-  ^  ^  p|l/sflr  s  TOP  y  *«  TORE. 


Necesitarás  un  monitor  de  len¬ 
guaje  máqu.na  o  un  ensamblador 

para  entrar  este  programa  en  tu 
ordenador.  El  Ustadolga 
escrito  en  lenguaje  ensamblador; 
el  listado  2  es  un  volcado  hexade 

cimal  de  lenguaje  maquina.  Cuan 


LINE#  UOC  CODE 


00436  0A¿* 

0043?  0«3D 

00433  0ñ3E 
00439  O*4? 

,  00440  0*41 

00441  0A4J 
00442  O*44 

00443  O*41"-- 

Ü0444  O*4® 

00443  004É 

00446  0H4C 
00447  0»=I4I» 

00448  0*4F 

00449  0*52 

I  00450  0*5- 

00451  0*5* 

00452  0*5! 

00453  0*5: 

00454  0*5' 

00455  0*5 

00456  O*11 

00457  0*e 

00458  0*c 

00459  0*fc 
00460  0*t 

00461  ®*« 

00462  0*' 

I  00463  0*' 

I  00464  0* 

00465  0* 

I  00466  0* 

00467  0* 

00468  0* 

00469  0^ 

00470  0i 
00471  01 

00472  01 

00472  01 

00472  0 

1  00472  0 

00472  0 

>  00472  0 

00472  i 
)  00472  i 

00473  t 
-j  00474  i 

J  00475  I 

-  00476  i 

?  00476 

00476 
P  00476 

00476 
®>  00476 

r  00477 

3  00477 


CMP  TABLEÉ 
BEQ  MATCH 
TXA 

">SSED  SÉ  M 

TftX 

CMP  #*40„u 
BNE  SEARCH 
JMP  LET 

match  inv 


;  L0  COMPARA  CON  LAS  INICIALES 
;  DE  LA  TABLA. 

■  S’^SSmSÍK  PSOX.*  ENTRRDfi 
j  Es  EL  FINAL  DE  LA  TABLA? 

,  SI  LO  ES  SftLTfi  R  ROTIRH  EET 


LDñ  <*7ft >.V  <  C 

CMP  TABLE.X  »  L 

BEÚ  MATCH 

ORA  #*S0  * 

CMP  TABLE.X 

BEQ  FOUND 

TX* 

AND  #*Fb 
LDV  #100 
BEQ  MISSED  ' 
FOUND  LDA  TABLE+l.X 
LDA  TABLE+2.X 
PHA 
TX* 

AMD  #*07 

TftX  __ 

movep  jsr  chrget 

DEX 

BNE  MOVEP 
JMP  CHRGET 

,  POR  MEDIO  DE  CHRGET, 


ffl|LARCONTOL*DT*BE*. 


ULTIMO  CARACTER  EN  TABLA? 


INTENTARLO  OTRA  VEZ 
PONE  VECTOR  EN  STACK 


LONGITUD  DE  LA  PALABRA 
AVANZA  PUNTERO 

SALTA  A  LA  RUTINA 


’  BWBVTE  *80<*40' *2®' *0®' *®4*'  *01 


TABLA  DE  PALABRAS  V  VECTORES 

.BYTE  'TAl'^C.*81,*4e,*O0^ 


.BVTE  .'RIGH  ,*L4,*80.*81.*0O 
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EXCURSION  POR  LA  M.CROPROGRAMACION 

tAWUItí»^"  cómo  utiUzar  los  comandos 

«rC-SJS 

ScrHSSs  «k“*íí=»  “"“•"‘o”'" 


LINE*  LOC  CODE 


ERRORS  =  00000 

SVMBOL  TflBLE 

I  SVMBOL  VfiLUE 
MDt  FFFF 

CHRÚET  0073 
COSI HE  E¿l4 
IlRftW  ®^| 

EVfHLEX  HD9E 


.BVTE  -PLO-,«M..8B..Eil.»0-«í'0 
. BVTE  -MOV-..C5..81.E52.*»»'*80 


.BVTE  -LEF'..M-»M'-«76''“'“e 


.BVTE 


.BVTE 


.BVTE 


FFFF  BASIC  JMl  |g«-  ií 

úl&F  COLOR  |061  COLR  @RlB 

£014  ^GRhD  Hit  ERROR 

Ifpl  FñCMEN  ffi  «TCH  FFFF 
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EXCURSION  POR  LA  MICROPROGRAMACION 

,  Hpfine  MULPLY  en  fun-  En  otros  ejemplos  intentare 

««S- 

Como  dije  al  principio,  es  inte-  cm  ^  ^  una  macroinstrUc-  nos. 
resante  que  te  fijes  en  la  u‘ihza-  como  MU LpLY  DEGRAD. 

ción  de  los  macros,  por  ejemplo  _ _ 


SVMBOL  TRBLE 


SYMBOL  VALUE 
FILL  0SC1 
FLRG 
GR0 


009? 
089F 

lurl„  8047 
IHPUT2  B7EB 

-  0855 


FIHDDX  - 

FLOFIX  BC9B 


L00P2 
MOVE 
NEXT 
NOTOK 
PL0T1 

SCREEH  —  ~ 

SOURCE  0S71 
STARTY  ~'~*- 
UPDRTE 
YCÜR 


09C2 

092D 

80C7 


S81E 

FFFF 

6Ú0F 


ORI 
IGR1 
LEFT 
MATCH 
MOVEP 
HEXT  1 
ÜK 

PLUS 

SEARCH 


0897 

8G3F 

08CF 

Ú*4£ 

0H¿E 

0*09 

032E 

B867 

0*38 


FINDDV 

FOUND 


80*4 

0*62 


I ERROR  *43B 
INIT  088E 
1_ET  A9*5 
MEMFflC  BBH2 


MULPLV 

NEXT2 


FFFF 
OH  12 


F'ARSER  0*34 
REftDY  *474 


¿ÚUHRE  yU-'B 


STEP 

USR 


0*10 

0H2* 


SHORT 

STARTft 

TABLE 

XCOR 


Ó9BE 

8023 

8227 

800* 


FIXFLO  B391 
GR  038* 

IGNORE  03*5 
INI TXV  097F 

LOOP 1  0«lfl 

MISSED  0*40 
BA28 
0*2? 
0914 
OSBA 
E26B 
8019 
09*1 
FFFF 


MULT 

NOERR 

PLOT 

RIGHT 

SINE 

STARTX 

TAIL 

XLOYHI 


LISTADO  2 

.«eao  00  0C  08  0*  043  9E  20  H 
'  filas  30  36  32  00  00  00  09  3l 

•  SS  It  01  *9  *0  85  FC  00 

••Ssssssssss 
;si ssssasss 
:S35S855...;S 
:«SSSSSSSS 
-.sasssssss- 

SSS5S5SSSS 
|  ::SSS2?5Su2«g 

. :0888  00  00  48  20  73  00  68  C9 
fioqa  'jfj  p0  0C  C9  3 1  Díí 

•  lite  11  *0  C6  *2  70  D0  06  A9 

•  ?££  11  w  8E  ‘1  00  fñ  % 

‘■Sssssssss 

■  filrfi  FB  91  FB  C8  D0  FB  E6  FC 

•  S  FC  E0  60  90  F3  60  20 

i'Ssss  Hssü 
iSsissssss 

':S5sssssss 

. :0910  80  4C  07  BB  20  EB  B.  86 
■0918  02  *9  C7  E5  02  85  02  *5 
:0920  15  F0  0B  C9  01  00  06  *5 
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EXCURSION  MN.IA  M.CROPROGRANACIOH 


IIÜIIÜI 

1  li  S  48  04  80  81  80  50 
|  le  4F  04  80  BB  00  «0  «° 
1  4F  56  C5  81  52  00  0®  « 
3  45  ^6  04  80  76  00  00  47 

¡ssSEssss 


3  4F  4C  D2 


I  LISTADO  3 

VE9:LEFT10:NEXT  — 


I  SSBBsaaRsa^  i 

FXT ¡R IGHT8 :NEXT  1 

I  60  GOSUB30®*ne^  _  .rQi  R0,2  :8=1ó05FO  I 
',  70  ORftW:P°^|^®ÉFT8:NEXT:GOSUB300  I 
i  RT=lTO200:MOVE^;^|?.ñ=720/T:DRBW  I 
|  S  fSb'-'itSSo-ITOI  .TMLOOUHllFO/ 

I  ^‘uMÍé’^.OlHEXT  ,»ICHt».NEXT.  I 

GOSUB300  o.fl-89  5:FORT=1TO230S  I 

iS.DSS?i^í5.HEXt.<»«UU3»  1 

*»  r0;;;“'^"<exv'wK3“'-,4iR  | 

eturn  ^ 


r*r\KA  ENTARIOS 
LU/Vl  MODORE  WORLD 

(Vi ene  de  pág.  51) 

La  cuarta  sección,  titulada  “Más  sobre 
programación",  da  más  detalles  sobre  la  uti¬ 
lización  de  técnicas  de  programación  avan¬ 
zadas,  ya  que  la  segunda  sección  era  muy 
elemental  y  no  detallaba  todas  las  posibili¬ 
dades  del  Commodore  64.  En  esta  sección 
del  libro  encontramos  capítulos  dedicados  a 
instrucciones  condicionales  (IF/THEN),  cómo 
utilizar  las  sentencias  DATA/READ.  cómo 
poder  adaptar  los  programas  que  deseemos  a 
nuestras  necesidades  particulares,  y  una  serie 


de  programas  algo  más  complejos  que  los 
que  habíamos  encontrado  hasta  este  momento. 

Las  cuatro  secciones  anteriores  constan  de 
un  total  de  dieciocho  capítulos,  que  cumplen 
perfectamente  su  función:  servir  de  guia  para 
el  usuario  durante  las  primeras  semanas  o 
meses  de  utilización  del  ordenador,  y  no 
decírselo  todo  sobre  el,  ya  que  esto  último 
supondría  utilizar  un  manual  de  más  de  mil 
páginas  y  aún  quedarían  puntos  sin  aclarar. 
La  finalidad  del  libro  la  deja  bien  clara  el 
autor  en  la  introducción,  en  la  que  dice  que 
tiene  un  alcance  limitado.  Creemos  que  aun¬ 
que  esté  limitado,  mucho  más  lo  están  los 
manuales  y  dejan  demasiados  puntos  sin 
aclarar,  por  lo  que  esta  obra  es  muy  útil  para 
todos  los  principiantes. 


Para  terminar  el  estudio,  encontramos  cin¬ 
cuenta  y  tres  páginas  destinadas  a  los  apén¬ 
dices.  Los  temas  tratados  en  esta  parte  del 
libro  podrían  confundir  el  estudio  inicial  del 
ordenador,  por  lo  que  pueden  verse  al  repa¬ 
sar  posteriormente  lo  aprendido.  Describen 
todas  las  peculiaridades  y  complejidades  del 
ordenador  personal  C-64,  y  son:  El  comando 
Poke,  la  instrucción  Peck,  los  spriles,  los 
sonidos,  qué  hacer  con  sus  propios  progra¬ 
mas,  una  descripción  de  todas  las  palabras 
clave  del  lenguaje  basic,  y  un  apéndice  dedi¬ 
cado  a  las  tablas  de  códigos  de  pantalla, 
ASCII,  mapas  de  memoria  de  pantalla  y 
color,  valores  para  obtener  las  notas  musica¬ 
les,  mapas  de  ios  registros  de  sprites  y  bases 
del  control  de  sonido  del  Commodore  64. 


tirada 

D€  COMMODORE  UUORID 

Certificación  de  28.000  ejemplares 


Según  certificado  firmado  por  lo 
auditorio  internacional  DEIOITTE  HRSKINS  S€llS,  S.fl. 
el  5  de  marzo  de  1 984,  lo  tirado  de 
Commodore  Uiortd  es  de  28.000  ejemplares. 
Este  certificado  se  encuentro  en  los  oficinas  de 
S.I.M.S.R.  poro  comprobación  de 
cualquier  persono  o  entidad  que  lo  desee. 


Oferta  de  trabajo 

PROFESOR  JEFE 

Enseñanza  de  Informática  (Barcelona) 

•  Para  responsabilizarse  de  los  cursos  de  informática  en  una  en¬ 
tidad  con  experiencia  en  este  campo.  Contará  con  140  alumnos  y 
coordinará  el  trabajo  de  cuatro  colaboradores. 

•  Trabajará  con  ordenadores  Commodore.  Debe  tener  dominio  del 
lenguaje  Basic  y  conocimientos  de  Logo.  Se  valorarán  también 
otros  lenguajes. 

•  La  edad  de  los  alumnos  es  de  10  a  18  años.  Ocasionalmente 
impartirá  cursos  de  introducción  a  la  informática  para 
profesionales  y  desarrollará  proyectos  informáticos. 

•  Debe  poseer  titulo  universitario  (Facultad  o  Escuela  lécnica). 
Se  valorará  experiencia  en  la  docencia. 

•  La  dedicación  es  de  un  mínimo  de  3,5  horas  diarias,  por  las 
tardes.  Se  incorporará  a  su  trabajo  en  enero  de  1985. 

Interesados,  concertar  entrevista  escribiendo  a  la  dirección: 

FP 

Casanovas,  164-166  —  1*  Ia 

08036  BARCELONA 

(indicando  nombre  y  teléfonos  de  localización) 
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MERCADILLO 


gona,  estamos  intentando  formar  un  club  lo  más 
sólido  posible,  no  nos  mueve  ningún  interés  lucra¬ 
tivo.  Alfred  Blasi  Tcl.:  (977)  547  307.  Tarragona. 

m  <  -  *» 

•  Deseo  contactar  con  niños-as  que  deseen  formar 
un  club  de  ordenadores  Commodore  64  y  VIC-20 
C/Avda.  del  Norte  n“  8  ate.  3.‘  Hospitalet  (Barce¬ 
lona).  Manuel  González  Martínez.  Tcl.:  93-240  23  50. 
(Ref.  C-3») 

•  Estamos  montando  una  actividad  de  intormánca 
en  el  Club  Los  Chopos  para  chavales,  sin  ningún  Tin 
lucrativo.  Javier  lluguei,  C/Antonio  Menchaca. 
19.  Telef.  469  34  61.  Neguri.  (Ref.  C-3S). 

•  Me  gustaría  contactar  con  usuarios  de  la  zona  de 
Mataró.  Dirigirse  a:  Marcel  Planagumá.  Pge.  Mir  i 
Borrell.  I-I'' 2/  Matarúí Barcelona). Tel. (93)7985127 
(Re/.  C-42). 

•  Desearía  información  sobre  daba  en  existencia  s 
gente  que  quiera  formar  uno  en  Pontevedra  de 
Commodore  64.  Carlos  Parada  Gandos.  C/Padre 
Fernando  Olmedo,  4-4“  B.  36002  Pontevedra.  Tel. 
(986)85  69  21.  (Ref.  C~43). 

•  Ha  nacido  el  Club  de  Informática  y  videojuegos. 
el  que  nos  escriba  recibirá  su  carnet,  con  n“.  inten¬ 
taremos  crear  un  presidente  por  ciudad  (el  I "  en 


escribir  de  cada  una).  Juan  A.  Manso.  C/lllescas, 
81.  28024  Madrid  (Ref.  C-44) 

•  Zaragoza.  Club  de  amigos  del  VIC-20  y  (  -64  en 
ESPUMOSOS  los  sábados  de  9.30  a  12,30.  Daniel 
Fdez.  de  Vdasco,  C/Gran  Vía,  39.  Zaragoza.  (Ref. 
C-45). 

•  Les  ruego  sí  puede  ser  que  me  pongan  en  con¬ 
tacto  con  algún  usuario  del  VIC-20.  Daniel  Roig. 
C/Castilla.  27.  Ibiza  (Baleares)  (Ref.  C-46J. 

•  Me  gustaría  contactar  con  alguien  de  Kigueras  o 
alrededores  para  intercambiar  programas  o  formar 
un  Club  Commodore  64.  Josep  Teixidor  Planas. 
Vilasacra.  2.  El  Far  D,  Emporda  (Girona).  Tel. 
508649  (Ref.  C-47J. 

•  VIC-20  Desearía  un  intercambio  de  experiencias 
en  cuanto  a  programación,  aplicaciones  al  campo 
de  la  radioaficíón  (intcfaccs)  y  programas  diversos. 
EC  6  M F.  Lorenzo  Sabater  Coll.  C/ Agua.  2.  Espor- 
las,  Mallorca,  Baleares.  (Ref.  C-4S). 

•  Estamos  formando  un  club  de  usuarios  del 
COMMODORE  64  en  Las  Palmas.  Desearíamos 
contactar  con  chicos  y  chicas  para  intercambio  de 
programas  y  experiencias.  Interesados  dirigirse  a: 
César  Montenegro  Armas.  C/Pío  XII,  56  2-D.  Tel 
24  60  61.  (Ref.  C-49). 


•  Desearía  ponerme  en  miiLlitii  con  usuarios  ,¡e 
VIC-20  para  intercambiar  programas  c  informa¬ 
ción.  Caries  Balaftá.  C/TIvoli.  n“  II.  5“A.  Réus 
(Tarragona).  (Ref.  (  -50) 

•  Som  dos  nors  lie  S  \H  \DI  1  I  que  esltm  mieras 
sais  en  formar  un  club  d'usuarís  d'ordcnadors 
COMMODORE  i  SINCLAIR.  Els  intcrassals  o 
intcrassadcs,  poden  escriurc  a:  Daniel  Ribes  Garo- 
lera,  C/Via  Aurelia  n“  24,  2“  3“  Sabadcll.  l  ambe 
demanen  si  es  posible  informació  sobre  clubs  ja 
existens.  (Ref.  C-J/). 

•  Desearía  contacrar  por  correo  con  usuarios  riel 
VIC-20.  tanto  usuarios  nacionales  como  extranje¬ 
ros.  Escribir  a  M‘  Mercedes  a  la  C/Marqués  del 
Muni.  25  (Guía  de  Gran  Canaria).  (Ref.  (  -52). 

•  Se  ha  creado  (  t  II  SCI  (  I  Rt  M  16".  un  nuevo 
Club,  nacido  para  todos  los  usuarios  de  CBM  64. 
Spcctrum  16K  y  Dragón  32  y  64.  Pero  para  que 
todo  ello  se  haga  realidad,  necesitamos  colaborado¬ 
res  y  muchas  ideas.  Se  intercambiarán  toda  clase  de 
programas  o  listados.  Se  creará  una  revista.  Escri¬ 
bir  a  Avd.  de  la  Aurora.  57, 12“  A.  (29006)  Málaga, 
desde  cualquier  punto  de  España,  se  contestará  o 
llamar  a:  Angel,  Tel.  321799.  o  Emilio,  Tcl.  398169. 
(Ref.  C-SJJ. 


“Commodore  World" 

aparte  de  venderse  generalmente  en  kioscos,  se  encuentra  asimismo 
a  la  venta  en  las  siguientes  distribuciones  de  Commodore  y  librerías. 


i.BÍ 


ALICANTE 

•  Casa  Wagner,  c/Juan  Carlos  I,  37.  Elda. 
Teléfono:  (965)  39  03  96 

•  Ferretería  Progreso.  c/General  Jordana,  28. 
F:ida.  Teléfono:  (965)  38  11  45. 

BADAJOZ 

•  Control  Sistemas.  Atda.  Santa  Marina,  25A. 
Teléfono:  (924)  25  88  00. 

BARCELONA 

•  (  alinea  Informática,  c/de  L'FAglesia,  15. 
Teléfono:  (93)  784  27  17.  Terrasa 

•  Comercial  (Tapera.  c/Mariano  Maspons,  4. 
Granollers.  Teléfono  (93)  870  45  42. 

•  Computer  Service.  Avda.  Abad  Maree!,  325. 
Tarrasa.  Teléfono:  (93)  788  63  77. 

•  Computerhard  c/s.  Jaime,  48.  Granollers. 
Teléfono:  (93)  870  09  19. 

•  Electrodomésticos  Mirambell,  c/Kahal.  45. 
San  Sadurni  d'  Anoia.  Teléf.:  (93)  891  11  34 

•  Gadesa.  Les  Valls,  12-14.  Sabadell. 
Teléfono:  (93)  725  25  43 

•  Librería  Emilia  Pérez  Radua.  c/Mavor,  35. 
Castellar  del  Vallés.  T  eléfono:  (93)  714  89  51. 

•  Librería  Michel.  Kda.  ( .uinardn.  1 .  Sardañoia. 

•  Mozart.  c/Jaime  1,  145.  Mollet. 

Teléfono:  (93)  593  75  01. 

•  Radio  Watt.  Paseo  de  Gracia,  30. 

T  eléfono:  (93)  237  11  82. 

•  Sonimóvil.  c/Alcalde  Armengou,  53. 
Manresa.  Teléfono:  (93)  873  78  17. 

•  Suministradora  Z,  S.A.  Av.  Barbera,  49-51 
Sabadell.  Teléfono:  (93)  710  56  66. 

•  Tronic.  Bigay,  11-13.  Tel.:  (93)  212  85  96. 


•  Bilbomicro,  S.  A.  c/Aureliano  Valle,  7. 
48010  Bilbao.  Teléfono:  (94)  443  43  51. 

BURGOS 

•  E.I.S.A.  c/Madríd.  4.  Teléfono:  (947)  20  46  24. 

CACERES 

•  Informática  Vivas  White.  San  Pedro,  8. 
Teléfono:  (927)  24  40  96. 

CADIZ 

•  Vídeo  Computer.  Comandante  Gómez 
Ortega,  59.  Algeciras.  Tel.:  (956)  65  39  02 

CASTELLON 

•  Horizontes.  c/Navarra,  76. 

CIUDAD  REAL 

•  Electrónica  Turrillo.  c/Pedrera  Baja,  7 
Teléfono:  (926)  22  38  67. 

LA  CORUÑA 

•  Cetronic,  S.L.  c/Palomar,  22  Bajo. 
Teléfono:  (981)  27  26  54 

•  Gesty  Computer.  Avda.  Romero  Donallo,  25. 
Tel.:  (981)  59  87  54.  Santiago  de  Compostela 

•  Sanlusa,  S.L.  San  Luis,  46  al  50. 

Teléfono:  (981)  23  07  49. 

GERONA 

•  Digit  Informática,  c/Avda.  11  Setembre,  7. 
Olot.  Teléfono:  (972)  26  94  01. 

•  Microcbip.  c/Aigua,  3.  Olot.  Tel.:  26  36  63. 

•  Regiscompte,  S.A.  c/Emilio  Grahit,  17  Bis. 
Teléfono:  (972)  21  99  88 

GRANADA 

•  Rafael  Moreno  Torres.  Recogidas,  24. 

Edif.  Castro.  Telefono:  (958)  26  20  50 

HUELVA 

•  Computerlog,  S.A.  c/Tendaleras,  15 
Teléfono:  (955)  25  81  99 

IBIZA 

•  Kelson.  Plaza  España,  S/N.  San  Antonio 
Abad.  Teléfono:  (971)  34  13  09. 

LEON 

•  Logdata.  c/Burgo  Nuevo,  4 
T  eléfono:  (987)  20  42  89 

•  MicroBierzo.  c/Carlos  I,  2 
Teléfono:  (987)  41  74  21  (Ponferrada). 

MADRID 

•  Electrónica  Lugo.  c/Barquillo,  40. 

•  kev  Informática.  c/Embajadores,  90 
Teléfono:  (91)  227  09  80. 


•  Librería  García  Peña,  c/Cavanilles,  52. 

•  Micro  mundo,  S.A.  El  Zoco.  Majadahonda. 
Teléfono:  (91)  638  13  89. 

•  Micros  Garden,  c/l-rancisco  Silvela,  19 
Teléfono:  (91)  401  07  27 

•  País  de  los  Microordenadores.  Bravo 
Murillo,  18.  Tels.:  (91 )  446  33  1 7  -  446  37  12. 

•  Remshop.  Galileo.  4.  Teléfono:  (91 )  445  28  08 

MALAGA 

•  Informática  Martínez,  S.A.  c/Cristo  de  la 
Epidemia,  90.  Teléfono:  (952)  26  37  68. 

MURCIA 

•  Procoinsa.  Ronda  Norte,  27. 

Teléfono:  (968)  23  94  49. 


PAMPLONA 

•  llar  Computéis,  S.A.  c/Alfonso  el 
Batallador.  16  (Trasera).  TeL  (948)  27  64  04. 

SALAMANCA 

•  Info-Gest  c/Ronda  del  Corpus,  2-1“  centro. 
Teléfono:  (923)  21  59  93. 

SAN  SEBASTIAN 

•  Donmicro,  S.A.  c/Arrasate,  6. 

Teléfono:  (943)  42  35  10. 

SANTANDER 

•  Librería  Hernández.  San  Francisco,  15. 
Teléfono:  (942)  22  53  30. 

SEVILLA 

•  Papelería  Mora.  c/Santa  Cruz,  5.  Ecija. 
Teléfono:  (954)  83  14  80. 

TARRAGONA 

•  Comercial  Informática  de  Tarragona,  S.A. 
c/Gasómetro.  20.  Teléfono:  (977)  23  08  53. 

•  Oficomplet.  Plaza  de  la  Cinta,  6.  Tortosa. 
Teléfono:  (977)  44  14  50. 

VALENCIA 

•  Ineleksa.  c/Remedio,  38-bajo-dcha.  Sagunto. 
Teléfono:  (96)  246  21  10  -  246  09  29. 

•  Librería  Mayte.  Pintor  Benedito,  3. 
Teléfono:  (96)  325  28  83 

VALLADOLID 

•  Chips  +  Tips,  S.A.  c/Juan  de  Juni,  3. 
Teléfono:  (983)  33  40  00. 

ZARAGOZA 

•  ADA  Computer.  Centro  Independencia. 

P«  Independencia,  24-26.  Tel.:  (976)  29  85  62. 
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BROTHER,  entre  los  cinco  mayores  productores  del  mundo  de  máquinas  de  escribir  e  impresoras  para 
la  informática  fue  seleccionada  como  la  marca  oficial  de  los  Juegos  Olímpicos  de  Los  Angeles  84.  Con 
una  antigüedad  de  50  años  como  fabricante  hoy  día  BROTHER  cuenta  en  servicio  con  más  de  12  mi¬ 
llones  de  máquinas  de  escribir  las  cuales  tienen  hasta  80  tipos  de  diseños  y  teclados  para  22  diferentes 
idiomas.  Sus  aproximadamente  20.000  empleados  y  7  plantas  mantienen  una  producción  corriente 
anual  de  1  millón  de  aparatos,  junto  con  otros  productos  BROTHER. 

Impresoras  de  margarita 

HR-1: 

Muy  duradero  y  fiable,  este  modelo  tiene  un  carro  ancho  que  permite  imprimir  132  caracteres  en  un 
papel  de  420  mm.  de  ancho,  ideal  para  grandes  trabajos  de  oficina.  Sus  cassettes  de  cinta  de  imprimir 
son  excepcionalmente  económicos  y  permiten  ahorrar  hasta  7  ptas.  en  un  folio  de  texto  de  1.000  ca¬ 
racteres  sobre  otras  impresoras  de  características  similares.  Se  puede  acoplar  un  alimentador  de  tractor 
para  papel  continuo  o  un  alimentador  automático  de  hojas  sueltas. 


HR-15,  HR-25,  HR-35: 

ilia  de  impresoras  de  alta  tecnología  y  resolución  en  su  sistema  de  i 
ta,  nos  ofrecen  una  compatibilidad  con  una  amplia  selección  de  hardware  exis 
adición  a  la  amplia  selección  de  procesadores  de  datos  y  software.  Todos  los  modelos  tienen  la  cuali¬ 
dad  de  imprimir  en  dos  colores  (negro  y  rojo),  posibilidad  de  remarcar  textos,  impresión  de  super  y 
sub  índices  y  control  de  impacto  para  copias  múltiples.  Entre  otras  opciones  se  encuentran  un  alimen 
■utomático  de  papel  cortado  con  un  máximo  de  200  hojas  sin  parar  y  un  alimentador  de  tractor 
que  permite  utilizar  papel  continuo.  El  HR-15  incorpora  una  memoria  de  tampón  de  3kbytes  (5  op¬ 
cional)  con  la  posibilidad  de  conectar  un  teclado  para  convertir  el  conjunto  en  una  máquina  de  escribir 
electrónica.  Imprime  a  una  velocidad  de  13  caracteres/seg.  Los  otros  dos  modelos  nos  ofrecen  alta  ve¬ 
locidad  de  impresión,  23  caracteres/seg.  para  el  HR-25  y  32  caracteres/seg.  para  el  HR-35.  Este  último 
modelo  posee  7kbytes  de  memoria  de  tampón  y  ofrece  25  kbytes  como  opcional.  Con  estas  memorias 
il  que  está  conectado  la  impresora  se  encuentra  libre  para  realizar  o 
ticamente  en  el  momento  en  que  se  da  el  comando  de  "IMPRIMIR" 


Impresoras  de  matriz 


Imagine  Ud.  una  impresora  de  que  imprime  gráficas  y  diagramas  unidireccionalmente  y  textos  bidi- 
reccionalmente  en  papel  corriente,  y  que  además  cabe  en  su  cartera  dejando  el  suficiente  espacio  para 
acomodar  su  ordenador  portátil  u  ordenador  personal.  Este  ordenador  es  más  que  esto!.  Ud.  puede  im- 
e  Ud.  quiera  puesto  que  puede  operar  con  4  pilas  de  linternas  convencionales. 
Puede  imprimir  una  página  entera  de  80  columnas  de  su  texto  sin  apenas  sonido.  Incorpora  el  interface 
de  CENTRONICS  o  el  RS-232.  Su  cabeza  impresora  de  alta  calidad  puede  imprimir  en  papel  normal  o 
térmico  a  una  velocidad  de  30  caracteres/seg. 

M  1009: 

La  impresora  de  matriz  BROTHER  M-1009  ha  sido  diseñada  teniendo  en  mente  la  demanda  tan 
bricar  una  impresora  de  bajo  costo  y  alta  calidad  accesible  al  bolsillo  de  aquellos 
le  disfrutan  de  ordenadores  personales  en  sus  hogares. 

Entre  sus  características  se  encuentran  una  cabeza  impresora  de  matriz  con  una  garantía  de  20  mí- 
cteres  de  vida,  imprime  a  50  caracteres/seg.,  bidireccionalmente  para  los  caracteres  co- 
ireccionalmente  para  gráficas,  diagramas,  y  super  y  sub  índices.  Baja  en  sonido,  la  M  1009 
además  otras  funciones  de  alto  precio  y  calidad  como  el  96  ASC  II  con  caracteres  gráficos  e  in¬ 
ternacionales.  Interface  de  Centronics  o  RS-232  C.  La  M  1009  imprime  en  papel  cortado,  con  alimen 
tadores  de  hojas  incorporados,  y  con  papel  continuo.  El  M  1009  es  una  unidad  eficaz  que  rendirá  lar 


irio  modelo,  BROTHER  2024L  -  ¡Dos  impresoras  en  unal.  A  80  caracteres/seg.,  impri 
me  con  calidad  impecable  para  tratamiento  de  textos,  y  apretando  un  botón,  imprime  a  la  alta  veloci¬ 
dad  de  160  caracteres/seg.  requerida  para  contabilidad.  Esta  versatilidad  permite  un  gran  ahorro  en  su 
compra  y  en  el  trabajo  diario  de  oficina.  Incluye,  además,  otras  características  sobresalientes  de  una 
gran  impresora  como:  la  posibilidad  de  cambiar  los  tipos  y  tamaños  de  caracteres  entre  normal,  con¬ 
densarlo,  pica,  élite  y  proporcional,  la  cantidad  de  caracteres  por  línea  entre  136,  272  y  proporcional, 
los  espacios  entre  líneas  entre  1/",  1/8",  14/120",  n/60",  n/120".  la  velocidad  de  alimentación  de  lí¬ 
neas  entre  2,0"/seg.  y  3,0"/seg.,  y  puede  alimentar  papel  con  anchura  entre  127  mm  y  381  mm  por 
fricción  o  continuo  por  medio  de  su  tractor  incorporado  y  con  capacidad  de  imprimir  un  original  y 
cuatro  copias  con  un  nivel  de  ruido  inferior  a  65  db  A. 


DISTRIBUIDOR 

Sor  Angala  da  la  Cruz,  24.  MADRID  20 

Taléfs.:  (911  279  21  85  279  28  01  270  01  93  270  76  75. 


COMMODORE 16 
LA  EMOCION  DE  EMPEZAR 


Iniciarse  en  el  mundo  de  tos  software  y  periféricos,  que  multiplican  sus  Porque  es  el  ordenador  ideal 

ordenadores  personales  con  un  posibilidades  futuras.  para  empezar  y  perfecto  para  seguir. 

COMMODORE  16  es  sumar,  a  la  emoción 
de  empezar,  la  emoción  del  futuro. 

Porque  es  un  ordenador  de 
fácil  manejo  y  programación,  pero  con 
prestaciones  que  sólo  se  encuentran  en 
ordenadores  de  costo  mucho  más  elevado. 

Porque  es  un  ordenador 
pequeño,  pero  con  la  mayor  cantidad  de 


PRINCIPALES  CARACTERISTICAS 

5 

-I6K. 

-  COMANDOS  DE  AL  TO  NIVEL 

PARA  GESTION  DE  COLOR,  SONIDO 

Y  GRAFICOS  DE  AL  TA  RESOLUCION. 

-  TECLADO  PROFESIONAL. 

-40  COLUMNAS  x  25  LINEAS. 

-  121  COLORES. 

-  GRAFICOS  EN  AL  TA  RESOLUCION 

-  2  GENERADORES  DE  TONO 

-  AMPLIA  GAMA  DE  PERIFERICOS. 

commodore  16 
LA  EMOCION  DEL  FUTURO 


commodore 

COMPUTER 


MICROELECTRONICA  Y  CONTROL 
d  Valencia,  49-53.  08015  Barcelona,  d  Princesa,  47,  3. 0  G.  28008  Madrid. 

UNICO  REPRESENTANTE  DE  COMMODORE  EN  ESPAÑA 


